home *** CD-ROM | disk | FTP | other *** search
Emacs Compiled Lisp | 1994-08-11 | 15.0 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
99%
| file
| data
| default
| |
100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 68 75 20 | 41 75 67 20 31 31 20 30 | on Thu |Aug 11 0|
|00000040| 33 3a 30 39 3a 34 32 20 | 31 39 39 34 0a 3b 3b 3b |3:09:42 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 66 72 61 6d 65 2e | 65 6c 0a 3b 3b 3b 20 65 |p/frame.|el.;;; e|
|00000080| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|00000090| 32 35 2e 39 32 2e 33 2e | 0a 3b 3b 3b 20 62 79 74 |25.92.3.|.;;; byt|
|000000a0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000b0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000c0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000d0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000e0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|000000f0| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000100| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000110| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000120| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000130| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000140| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000160| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|00000170| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000180| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|). (e|
|00000190| 72 72 6f 72 20 22 60 2f | 68 6f 6d 65 2f 66 73 66 |rror "`/|home/fsf|
|000001a0| 2f 72 6d 73 2f 65 31 39 | 2f 6c 69 73 70 2f 66 72 |/rms/e19|/lisp/fr|
|000001b0| 61 6d 65 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ame.el' |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001d0| 39 22 29 29 0a 0a 28 64 | 65 66 76 61 72 20 66 72 |9"))..(d|efvar fr|
|000001e0| 61 6d 65 2d 63 72 65 61 | 74 69 6f 6e 2d 66 75 6e |ame-crea|tion-fun|
|000001f0| 63 74 69 6f 6e 20 6e 69 | 6c 20 22 5c 0a 57 69 6e |ction ni|l "\.Win|
|00000200| 64 6f 77 2d 73 79 73 74 | 65 6d 20 64 65 70 65 6e |dow-syst|em depen|
|00000210| 64 65 6e 74 20 66 75 6e | 63 74 69 6f 6e 20 74 6f |dent fun|ction to|
|00000220| 20 63 61 6c 6c 20 74 6f | 20 63 72 65 61 74 65 20 | call to| create |
|00000230| 61 20 6e 65 77 20 66 72 | 61 6d 65 2e 0a 54 68 65 |a new fr|ame..The|
|00000240| 20 77 69 6e 64 6f 77 20 | 73 79 73 74 65 6d 20 73 | window |system s|
|00000250| 74 61 72 74 75 70 20 66 | 69 6c 65 20 73 68 6f 75 |tartup f|ile shou|
|00000260| 6c 64 20 73 65 74 20 74 | 68 69 73 20 74 6f 20 69 |ld set t|his to i|
|00000270| 74 73 20 66 72 61 6d 65 | 20 63 72 65 61 74 69 6f |ts frame| creatio|
|00000280| 6e 0a 66 75 6e 63 74 69 | 6f 6e 2c 20 77 68 69 63 |n.functi|on, whic|
|00000290| 68 20 73 68 6f 75 6c 64 | 20 74 61 6b 65 20 61 6e |h should| take an|
|000002a0| 20 61 6c 69 73 74 20 6f | 66 20 70 61 72 61 6d 65 | alist o|f parame|
|000002b0| 74 65 72 73 20 61 73 20 | 69 74 73 20 61 72 67 75 |ters as |its argu|
|000002c0| 6d 65 6e 74 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ment.").|(defvar |
|000002d0| 69 6e 69 74 69 61 6c 2d | 66 72 61 6d 65 2d 61 6c |initial-|frame-al|
|000002e0| 69 73 74 20 28 71 75 6f | 74 65 20 28 28 6d 69 6e |ist (quo|te ((min|
|000002f0| 69 62 75 66 66 65 72 20 | 2e 20 74 29 29 29 20 22 |ibuffer |. t))) "|
|00000300| 5c 0a 41 6c 69 73 74 20 | 6f 66 20 66 72 61 6d 65 |\.Alist |of frame|
|00000310| 20 70 61 72 61 6d 65 74 | 65 72 73 20 66 6f 72 20 | paramet|ers for |
|00000320| 63 72 65 61 74 69 6e 67 | 20 74 68 65 20 69 6e 69 |creating| the ini|
|00000330| 74 69 61 6c 20 58 20 77 | 69 6e 64 6f 77 20 66 72 |tial X w|indow fr|
|00000340| 61 6d 65 2e 0a 59 6f 75 | 20 63 61 6e 20 73 65 74 |ame..You| can set|
|00000350| 20 74 68 69 73 20 69 6e | 20 79 6f 75 72 20 60 2e | this in| your `.|
|00000360| 65 6d 61 63 73 27 20 66 | 69 6c 65 3b 20 66 6f 72 |emacs' f|ile; for|
|00000370| 20 65 78 61 6d 70 6c 65 | 2c 0a 20 28 73 65 74 71 | example|,. (setq|
|00000380| 20 69 6e 69 74 69 61 6c | 2d 66 72 61 6d 65 2d 61 | initial|-frame-a|
|00000390| 6c 69 73 74 20 27 28 28 | 74 6f 70 20 2e 20 31 29 |list '((|top . 1)|
|000003a0| 20 28 6c 65 66 74 20 2e | 20 31 29 20 28 77 69 64 | (left .| 1) (wid|
|000003b0| 74 68 20 2e 20 38 30 29 | 20 28 68 65 69 67 68 74 |th . 80)| (height|
|000003c0| 20 2e 20 35 35 29 29 29 | 0a 50 61 72 61 6d 65 74 | . 55)))|.Paramet|
|000003d0| 65 72 73 20 73 70 65 63 | 69 66 69 65 64 20 68 65 |ers spec|ified he|
|000003e0| 72 65 20 73 75 70 65 72 | 73 65 64 65 20 74 68 65 |re super|sede the|
|000003f0| 20 76 61 6c 75 65 73 20 | 67 69 76 65 6e 20 69 6e | values |given in|
|00000400| 20 60 64 65 66 61 75 6c | 74 2d 66 72 61 6d 65 2d | `defaul|t-frame-|
|00000410| 61 6c 69 73 74 27 2e 0a | 0a 49 66 20 74 68 65 20 |alist'..|.If the |
|00000420| 76 61 6c 75 65 20 63 61 | 6c 6c 73 20 66 6f 72 20 |value ca|lls for |
|00000430| 61 20 66 72 61 6d 65 20 | 77 69 74 68 6f 75 74 20 |a frame |without |
|00000440| 61 20 6d 69 6e 69 62 75 | 66 66 65 72 2c 20 61 6e |a minibu|ffer, an|
|00000450| 64 20 79 6f 75 20 68 61 | 76 65 20 6e 6f 74 20 63 |d you ha|ve not c|
|00000460| 72 65 61 74 65 64 0a 61 | 20 6d 69 6e 69 62 75 66 |reated.a| minibuf|
|00000470| 66 65 72 20 66 72 61 6d | 65 20 6f 6e 20 79 6f 75 |fer fram|e on you|
|00000480| 72 20 6f 77 6e 2c 20 6f | 6e 65 20 69 73 20 63 72 |r own, o|ne is cr|
|00000490| 65 61 74 65 64 20 61 63 | 63 6f 72 64 69 6e 67 20 |eated ac|cording |
|000004a0| 74 6f 0a 60 6d 69 6e 69 | 62 75 66 66 65 72 2d 66 |to.`mini|buffer-f|
|000004b0| 72 61 6d 65 2d 61 6c 69 | 73 74 27 2e 0a 0a 59 6f |rame-ali|st'...Yo|
|000004c0| 75 20 63 61 6e 20 73 70 | 65 63 69 66 79 20 67 65 |u can sp|ecify ge|
|000004d0| 6f 6d 65 74 72 79 2d 72 | 65 6c 61 74 65 64 20 6f |ometry-r|elated o|
|000004e0| 70 74 69 6f 6e 73 20 66 | 6f 72 20 6a 75 73 74 20 |ptions f|or just |
|000004f0| 74 68 65 20 69 6e 69 74 | 69 61 6c 20 66 72 61 6d |the init|ial fram|
|00000500| 65 0a 62 79 20 73 65 74 | 74 69 6e 67 20 74 68 69 |e.by set|ting thi|
|00000510| 73 20 76 61 72 69 61 62 | 6c 65 20 69 6e 20 79 6f |s variab|le in yo|
|00000520| 75 72 20 60 2e 65 6d 61 | 63 73 27 20 66 69 6c 65 |ur `.ema|cs' file|
|00000530| 3b 20 68 6f 77 65 76 65 | 72 2c 20 74 68 65 79 20 |; howeve|r, they |
|00000540| 77 6f 6e 27 74 0a 74 61 | 6b 65 20 61 66 66 65 63 |won't.ta|ke affec|
|00000550| 74 20 75 6e 74 69 6c 20 | 45 6d 61 63 73 20 72 65 |t until |Emacs re|
|00000560| 61 64 73 20 60 2e 65 6d | 61 63 73 27 2c 20 77 68 |ads `.em|acs', wh|
|00000570| 69 63 68 20 68 61 70 70 | 65 6e 73 20 61 66 74 65 |ich happ|ens afte|
|00000580| 72 20 66 69 72 73 74 20 | 63 72 65 61 74 69 6e 67 |r first |creating|
|00000590| 0a 74 68 65 20 66 72 61 | 6d 65 2e 20 20 49 66 20 |.the fra|me. If |
|000005a0| 79 6f 75 20 77 61 6e 74 | 20 74 68 65 20 66 72 61 |you want| the fra|
|000005b0| 6d 65 20 74 6f 20 68 61 | 76 65 20 74 68 65 20 70 |me to ha|ve the p|
|000005c0| 72 6f 70 65 72 20 67 65 | 6f 6d 65 74 72 79 20 61 |roper ge|ometry a|
|000005d0| 73 20 73 6f 6f 6e 0a 61 | 73 20 69 74 20 61 70 70 |s soon.a|s it app|
|000005e0| 65 61 72 73 2c 20 79 6f | 75 20 6e 65 65 64 20 74 |ears, yo|u need t|
|000005f0| 6f 20 75 73 65 20 74 68 | 69 73 20 74 68 72 65 65 |o use th|is three|
|00000600| 2d 73 74 65 70 20 70 72 | 6f 63 65 73 73 3a 0a 2a |-step pr|ocess:.*|
|00000610| 20 53 70 65 63 69 66 79 | 20 58 20 72 65 73 6f 75 | Specify| X resou|
|00000620| 72 63 65 73 20 74 6f 20 | 67 69 76 65 20 74 68 65 |rces to |give the|
|00000630| 20 67 65 6f 6d 65 74 72 | 79 20 79 6f 75 20 77 61 | geometr|y you wa|
|00000640| 6e 74 2e 0a 2a 20 53 65 | 74 20 60 64 65 66 61 75 |nt..* Se|t `defau|
|00000650| 6c 74 2d 66 72 61 6d 65 | 2d 61 6c 69 73 74 27 20 |lt-frame|-alist' |
|00000660| 74 6f 20 6f 76 65 72 72 | 69 64 65 20 74 68 65 73 |to overr|ide thes|
|00000670| 65 20 6f 70 74 69 6f 6e | 73 20 73 6f 20 74 68 61 |e option|s so tha|
|00000680| 74 20 74 68 65 79 0a 20 | 20 64 6f 6e 27 74 20 61 |t they. | don't a|
|00000690| 66 66 65 63 74 20 73 75 | 62 73 65 71 75 65 6e 74 |ffect su|bsequent|
|000006a0| 20 66 72 61 6d 65 73 2e | 0a 2a 20 53 65 74 20 60 | frames.|.* Set `|
|000006b0| 69 6e 69 74 69 61 6c 2d | 66 72 61 6d 65 2d 61 6c |initial-|frame-al|
|000006c0| 69 73 74 27 20 69 6e 20 | 61 20 77 61 79 20 74 68 |ist' in |a way th|
|000006d0| 61 74 20 6d 61 74 63 68 | 65 73 20 74 68 65 20 58 |at match|es the X|
|000006e0| 20 72 65 73 6f 75 72 63 | 65 73 2c 0a 20 20 74 6f | resourc|es,. to|
|000006f0| 20 6f 76 65 72 72 69 64 | 65 20 77 68 61 74 20 79 | overrid|e what y|
|00000700| 6f 75 20 70 75 74 20 69 | 6e 20 60 64 65 66 61 75 |ou put i|n `defau|
|00000710| 6c 74 2d 66 72 61 6d 65 | 2d 61 6c 69 73 74 27 2e |lt-frame|-alist'.|
|00000720| 22 29 0a 28 64 65 66 76 | 61 72 20 6d 69 6e 69 62 |").(defv|ar minib|
|00000730| 75 66 66 65 72 2d 66 72 | 61 6d 65 2d 61 6c 69 73 |uffer-fr|ame-alis|
|00000740| 74 20 28 71 75 6f 74 65 | 20 28 28 77 69 64 74 68 |t (quote| ((width|
|00000750| 20 2e 20 38 30 29 20 28 | 68 65 69 67 68 74 20 2e | . 80) (|height .|
|00000760| 20 32 29 29 29 20 22 5c | 0a 41 6c 69 73 74 20 6f | 2))) "\|.Alist o|
|00000770| 66 20 66 72 61 6d 65 20 | 70 61 72 61 6d 65 74 65 |f frame |paramete|
|00000780| 72 73 20 66 6f 72 20 69 | 6e 69 74 69 61 6c 6c 79 |rs for i|nitially|
|00000790| 20 63 72 65 61 74 69 6e | 67 20 61 20 6d 69 6e 69 | creatin|g a mini|
|000007a0| 62 75 66 66 65 72 20 66 | 72 61 6d 65 2e 0a 59 6f |buffer f|rame..Yo|
|000007b0| 75 20 63 61 6e 20 73 65 | 74 20 74 68 69 73 20 69 |u can se|t this i|
|000007c0| 6e 20 79 6f 75 72 20 60 | 2e 65 6d 61 63 73 27 20 |n your `|.emacs' |
|000007d0| 66 69 6c 65 3b 20 66 6f | 72 20 65 78 61 6d 70 6c |file; fo|r exampl|
|000007e0| 65 2c 0a 20 28 73 65 74 | 71 20 6d 69 6e 69 62 75 |e,. (set|q minibu|
|000007f0| 66 66 65 72 2d 66 72 61 | 6d 65 2d 61 6c 69 73 74 |ffer-fra|me-alist|
|00000800| 0a 20 20 20 27 28 28 74 | 6f 70 20 2e 20 31 29 20 |. '((t|op . 1) |
|00000810| 28 6c 65 66 74 20 2e 20 | 31 29 20 28 77 69 64 74 |(left . |1) (widt|
|00000820| 68 20 2e 20 38 30 29 20 | 28 68 65 69 67 68 74 20 |h . 80) |(height |
|00000830| 2e 20 32 29 29 29 0a 50 | 61 72 61 6d 65 74 65 72 |. 2))).P|arameter|
|00000840| 73 20 73 70 65 63 69 66 | 69 65 64 20 68 65 72 65 |s specif|ied here|
|00000850| 20 73 75 70 65 72 73 65 | 64 65 20 74 68 65 20 76 | superse|de the v|
|00000860| 61 6c 75 65 73 20 67 69 | 76 65 6e 20 69 6e 0a 60 |alues gi|ven in.`|
|00000870| 64 65 66 61 75 6c 74 2d | 66 72 61 6d 65 2d 61 6c |default-|frame-al|
|00000880| 69 73 74 27 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ist'.").|(defvar |
|00000890| 70 6f 70 2d 75 70 2d 66 | 72 61 6d 65 2d 61 6c 69 |pop-up-f|rame-ali|
|000008a0| 73 74 20 6e 69 6c 20 22 | 5c 0a 41 6c 69 73 74 20 |st nil "|\.Alist |
|000008b0| 6f 66 20 66 72 61 6d 65 | 20 70 61 72 61 6d 65 74 |of frame| paramet|
|000008c0| 65 72 73 20 75 73 65 64 | 20 77 68 65 6e 20 63 72 |ers used| when cr|
|000008d0| 65 61 74 69 6e 67 20 70 | 6f 70 2d 75 70 20 66 72 |eating p|op-up fr|
|000008e0| 61 6d 65 73 2e 0a 50 6f | 70 2d 75 70 20 66 72 61 |ames..Po|p-up fra|
|000008f0| 6d 65 73 20 61 72 65 20 | 75 73 65 64 20 66 6f 72 |mes are |used for|
|00000900| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 2c 20 68 65 | complet|ions, he|
|00000910| 6c 70 2c 20 61 6e 64 20 | 74 68 65 20 6c 69 6b 65 |lp, and |the like|
|00000920| 2e 0a 54 68 69 73 20 76 | 61 72 69 61 62 6c 65 20 |..This v|ariable |
|00000930| 63 61 6e 20 62 65 20 73 | 65 74 20 69 6e 20 79 6f |can be s|et in yo|
|00000940| 75 72 20 69 6e 69 74 20 | 66 69 6c 65 2c 20 6c 69 |ur init |file, li|
|00000950| 6b 65 20 74 68 69 73 3a | 0a 20 20 28 73 65 74 71 |ke this:|. (setq|
|00000960| 20 70 6f 70 2d 75 70 2d | 66 72 61 6d 65 2d 61 6c | pop-up-|frame-al|
|00000970| 69 73 74 20 27 28 28 77 | 69 64 74 68 20 2e 20 38 |ist '((w|idth . 8|
|00000980| 30 29 20 28 68 65 69 67 | 68 74 20 2e 20 32 30 29 |0) (heig|ht . 20)|
|00000990| 29 29 0a 54 68 65 73 65 | 20 73 75 70 65 72 73 65 |)).These| superse|
|000009a0| 64 65 20 74 68 65 20 76 | 61 6c 75 65 73 20 67 69 |de the v|alues gi|
|000009b0| 76 65 6e 20 69 6e 20 60 | 64 65 66 61 75 6c 74 2d |ven in `|default-|
|000009c0| 66 72 61 6d 65 2d 61 6c | 69 73 74 27 2e 22 29 0a |frame-al|ist'.").|
|000009d0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c2 87 |(byte-co|de "....|
|000009e0| 22 20 5b 23 5b 6e 69 6c | 20 22 c0 09 21 87 22 20 |" [#[nil| "..!." |
|000009f0| 5b 6d 61 6b 65 2d 66 72 | 61 6d 65 20 70 6f 70 2d |[make-fr|ame pop-|
|00000a00| 75 70 2d 66 72 61 6d 65 | 2d 61 6c 69 73 74 5d 20 |up-frame|-alist] |
|00000a10| 32 5d 20 70 6f 70 2d 75 | 70 2d 66 72 61 6d 65 2d |2] pop-u|p-frame-|
|00000a20| 66 75 6e 63 74 69 6f 6e | 20 6e 69 6c 5d 20 31 29 |function| nil] 1)|
|00000a30| 0a 28 64 65 66 76 61 72 | 20 73 70 65 63 69 61 6c |.(defvar| special|
|00000a40| 2d 64 69 73 70 6c 61 79 | 2d 66 72 61 6d 65 2d 61 |-display|-frame-a|
|00000a50| 6c 69 73 74 20 28 71 75 | 6f 74 65 20 28 28 68 65 |list (qu|ote ((he|
|00000a60| 69 67 68 74 20 2e 20 31 | 34 29 20 28 77 69 64 74 |ight . 1|4) (widt|
|00000a70| 68 20 2e 20 38 30 29 20 | 28 75 6e 73 70 6c 69 74 |h . 80) |(unsplit|
|00000a80| 74 61 62 6c 65 20 2e 20 | 74 29 29 29 20 22 5c 0a |table . |t))) "\.|
|00000a90| 2a 41 6c 69 73 74 20 6f | 66 20 66 72 61 6d 65 20 |*Alist o|f frame |
|00000aa0| 70 61 72 61 6d 65 74 65 | 72 73 20 75 73 65 64 20 |paramete|rs used |
|00000ab0| 77 68 65 6e 20 63 72 65 | 61 74 69 6e 67 20 73 70 |when cre|ating sp|
|00000ac0| 65 63 69 61 6c 20 66 72 | 61 6d 65 73 2e 0a 53 70 |ecial fr|ames..Sp|
|00000ad0| 65 63 69 61 6c 20 66 72 | 61 6d 65 73 20 61 72 65 |ecial fr|ames are|
|00000ae0| 20 75 73 65 64 20 66 6f | 72 20 62 75 66 66 65 72 | used fo|r buffer|
|00000af0| 73 20 77 68 6f 73 65 20 | 6e 61 6d 65 73 20 61 72 |s whose |names ar|
|00000b00| 65 20 69 6e 0a 60 73 70 | 65 63 69 61 6c 2d 64 69 |e in.`sp|ecial-di|
|00000b10| 73 70 6c 61 79 2d 62 75 | 66 66 65 72 2d 6e 61 6d |splay-bu|ffer-nam|
|00000b20| 65 73 27 20 61 6e 64 20 | 66 6f 72 20 62 75 66 66 |es' and |for buff|
|00000b30| 65 72 73 20 77 68 6f 73 | 65 20 6e 61 6d 65 73 20 |ers whos|e names |
|00000b40| 6d 61 74 63 68 0a 6f 6e | 65 20 6f 66 20 74 68 65 |match.on|e of the|
|00000b50| 20 72 65 67 75 6c 61 72 | 20 65 78 70 72 65 73 73 | regular| express|
|00000b60| 69 6f 6e 73 20 69 6e 20 | 60 73 70 65 63 69 61 6c |ions in |`special|
|00000b70| 2d 64 69 73 70 6c 61 79 | 2d 72 65 67 65 78 70 73 |-display|-regexps|
|00000b80| 27 2e 0a 54 68 69 73 20 | 76 61 72 69 61 62 6c 65 |'..This |variable|
|00000b90| 20 63 61 6e 20 62 65 20 | 73 65 74 20 69 6e 20 79 | can be |set in y|
|00000ba0| 6f 75 72 20 69 6e 69 74 | 20 66 69 6c 65 2c 20 6c |our init| file, l|
|00000bb0| 69 6b 65 20 74 68 69 73 | 3a 0a 20 20 28 73 65 74 |ike this|:. (set|
|00000bc0| 71 20 73 70 65 63 69 61 | 6c 2d 64 69 73 70 6c 61 |q specia|l-displa|
|00000bd0| 79 2d 66 72 61 6d 65 2d | 61 6c 69 73 74 20 27 28 |y-frame-|alist '(|
|00000be0| 28 77 69 64 74 68 20 2e | 20 38 30 29 20 28 68 65 |(width .| 80) (he|
|00000bf0| 69 67 68 74 20 2e 20 32 | 30 29 29 29 0a 54 68 65 |ight . 2|0))).The|
|00000c00| 73 65 20 73 75 70 65 72 | 73 65 64 65 20 74 68 65 |se super|sede the|
|00000c10| 20 76 61 6c 75 65 73 20 | 67 69 76 65 6e 20 69 6e | values |given in|
|00000c20| 20 60 64 65 66 61 75 6c | 74 2d 66 72 61 6d 65 2d | `defaul|t-frame-|
|00000c30| 61 6c 69 73 74 27 2e 22 | 29 0a 28 62 79 74 65 2d |alist'."|).(byte-|
|00000c40| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 c1 13 c4 c5 |code "..|.\".....|
|00000c50| 21 84 0f 00 c6 15 c4 c7 | 21 84 18 00 c6 16 07 c0 |!.......|!.......|
|00000c60| c8 c9 5c 22 88 c0 ca cb | 5c 22 88 c0 cc cd 5c 22 |..\"....|\"....\"|
|00000c70| 88 c0 ce cf 5c 22 87 22 | 20 5b 64 65 66 61 6c 69 |....\"."| [defali|
|00000c80| 61 73 20 73 70 65 63 69 | 61 6c 2d 64 69 73 70 6c |as speci|al-displ|
|00000c90| 61 79 2d 70 6f 70 75 70 | 2d 66 72 61 6d 65 20 23 |ay-popup|-frame #|
|00000ca0| 5b 28 62 75 66 66 65 72 | 29 20 22 c0 09 c2 5c 22 |[(buffer|) "...\"|
|00000cb0| 89 1b 83 1a 00 c4 0b 21 | 1d c6 0d 21 88 c7 0d 21 |.......!|...!...!|
|00000cc0| 88 0b 29 82 31 00 c8 0e | 09 21 1d ca cb 0d 21 09 |..).1...|.!....!.|
|00000cd0| 5c 22 88 cc cb 0d 21 c2 | 5c 22 88 cb 0d 21 29 29 |\"....!.|\"...!))|
|00000ce0| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 2d 77 |." [get-|buffer-w|
|00000cf0| 69 6e 64 6f 77 20 62 75 | 66 66 65 72 20 74 20 77 |indow bu|ffer t w|
|00000d00| 69 6e 64 6f 77 20 77 69 | 6e 64 6f 77 2d 66 72 61 |indow wi|ndow-fra|
|00000d10| 6d 65 20 66 72 61 6d 65 | 20 6d 61 6b 65 2d 66 72 |me frame| make-fr|
|00000d20| 61 6d 65 2d 76 69 73 69 | 62 6c 65 20 72 61 69 73 |ame-visi|ble rais|
|00000d30| 65 2d 66 72 61 6d 65 20 | 6d 61 6b 65 2d 66 72 61 |e-frame |make-fra|
|00000d40| 6d 65 20 73 70 65 63 69 | 61 6c 2d 64 69 73 70 6c |me speci|al-displ|
|00000d50| 61 79 2d 66 72 61 6d 65 | 2d 61 6c 69 73 74 20 73 |ay-frame|-alist s|
|00000d60| 65 74 2d 77 69 6e 64 6f | 77 2d 62 75 66 66 65 72 |et-windo|w-buffer|
|00000d70| 20 66 72 61 6d 65 2d 73 | 65 6c 65 63 74 65 64 2d | frame-s|elected-|
|00000d80| 77 69 6e 64 6f 77 20 73 | 65 74 2d 77 69 6e 64 6f |window s|et-windo|
|00000d90| 77 2d 64 65 64 69 63 61 | 74 65 64 2d 70 5d 20 34 |w-dedica|ted-p] 4|
|00000da0| 5d 20 73 70 65 63 69 61 | 6c 2d 64 69 73 70 6c 61 |] specia|l-displa|
|00000db0| 79 2d 66 75 6e 63 74 69 | 6f 6e 20 62 6f 75 6e 64 |y-functi|on bound|
|00000dc0| 70 20 66 72 61 6d 65 2d | 69 6e 69 74 69 61 6c 2d |p frame-|initial-|
|00000dd0| 66 72 61 6d 65 20 6e 69 | 6c 20 66 72 61 6d 65 2d |frame ni|l frame-|
|00000de0| 69 6e 69 74 69 61 6c 2d | 67 65 6f 6d 65 74 72 79 |initial-|geometry|
|00000df0| 2d 61 72 67 75 6d 65 6e | 74 73 20 66 72 61 6d 65 |-argumen|ts frame|
|00000e00| 2d 69 6e 69 74 69 61 6c | 69 7a 65 20 23 5b 6e 69 |-initial|ize #[ni|
|00000e10| 6c 20 22 08 83 49 00 09 | 84 49 00 c2 0b c4 20 5c |l "..I..|.I.... \|
|00000e20| 22 84 41 00 c5 0e 06 0e | 07 5c 22 16 08 c9 0e 08 |".A.....|.\".....|
|00000e30| 9e 84 25 00 ca 0e 08 42 | 16 08 cb 0e 08 9e 84 32 |..%....B|.......2|
|00000e40| 00 cc 0e 08 42 16 08 cd | 0e 06 21 89 16 0e 16 0f |....B...|..!.....|
|00000e50| d0 0e 06 21 16 06 d1 0b | 21 88 d2 89 13 87 d3 89 |...!....|!.......|
|00000e60| 16 14 87 22 20 5b 77 69 | 6e 64 6f 77 2d 73 79 73 |..." [wi|ndow-sys|
|00000e70| 74 65 6d 20 6e 6f 6e 69 | 6e 74 65 72 61 63 74 69 |tem noni|nteracti|
|00000e80| 76 65 20 64 65 6c 71 20 | 74 65 72 6d 69 6e 61 6c |ve delq |terminal|
|00000e90| 2d 66 72 61 6d 65 20 6d | 69 6e 69 62 75 66 66 65 |-frame m|inibuffe|
|00000ea0| 72 2d 66 72 61 6d 65 2d | 6c 69 73 74 20 61 70 70 |r-frame-|list app|
|00000eb0| 65 6e 64 20 69 6e 69 74 | 69 61 6c 2d 66 72 61 6d |end init|ial-fram|
|00000ec0| 65 2d 61 6c 69 73 74 20 | 64 65 66 61 75 6c 74 2d |e-alist |default-|
|00000ed0| 66 72 61 6d 65 2d 61 6c | 69 73 74 20 66 72 61 6d |frame-al|ist fram|
|00000ee0| 65 2d 69 6e 69 74 69 61 | 6c 2d 66 72 61 6d 65 2d |e-initia|l-frame-|
|00000ef0| 61 6c 69 73 74 20 76 65 | 72 74 69 63 61 6c 2d 73 |alist ve|rtical-s|
|00000f00| 63 72 6f 6c 6c 2d 62 61 | 72 73 20 28 76 65 72 74 |croll-ba|rs (vert|
|00000f10| 69 63 61 6c 2d 73 63 72 | 6f 6c 6c 2d 62 61 72 73 |ical-scr|oll-bars|
|00000f20| 20 2e 20 74 29 20 68 6f | 72 69 7a 6f 6e 74 61 6c | . t) ho|rizontal|
|00000f30| 2d 73 63 72 6f 6c 6c 2d | 62 61 72 73 20 28 68 6f |-scroll-|bars (ho|
|00000f40| 72 69 7a 6f 6e 74 61 6c | 2d 73 63 72 6f 6c 6c 2d |rizontal|-scroll-|
|00000f50| 62 61 72 73 20 2e 20 74 | 29 20 6d 61 6b 65 2d 66 |bars . t|) make-f|
|00000f60| 72 61 6d 65 20 66 72 61 | 6d 65 2d 69 6e 69 74 69 |rame fra|me-initi|
|00000f70| 61 6c 2d 66 72 61 6d 65 | 20 64 65 66 61 75 6c 74 |al-frame| default|
|00000f80| 2d 6d 69 6e 69 62 75 66 | 66 65 72 2d 66 72 61 6d |-minibuf|fer-fram|
|00000f90| 65 20 66 72 61 6d 65 2d | 72 65 6d 6f 76 65 2d 67 |e frame-|remove-g|
|00000fa0| 65 6f 6d 65 74 72 79 2d | 70 61 72 61 6d 73 20 64 |eometry-|params d|
|00000fb0| 65 6c 65 74 65 2d 66 72 | 61 6d 65 20 6e 69 6c 20 |elete-fr|ame nil |
|00000fc0| 23 5b 28 70 61 72 61 6d | 65 74 65 72 73 29 20 22 |#[(param|eters) "|
|00000fd0| c0 c1 21 87 22 20 5b 65 | 72 72 6f 72 20 22 43 61 |..!." [e|rror "Ca|
|00000fe0| 6e 27 74 20 63 72 65 61 | 74 65 20 6d 75 6c 74 69 |n't crea|te multi|
|00000ff0| 70 6c 65 20 66 72 61 6d | 65 73 20 77 69 74 68 6f |ple fram|es witho|
|00001000| 75 74 20 61 20 77 69 6e | 64 6f 77 20 73 79 73 74 |ut a win|dow syst|
|00001010| 65 6d 22 5d 20 32 5d 20 | 66 72 61 6d 65 2d 63 72 |em"] 2] |frame-cr|
|00001020| 65 61 74 69 6f 6e 2d 66 | 75 6e 63 74 69 6f 6e 5d |eation-f|unction]|
|00001030| 20 33 5d 20 66 72 61 6d | 65 2d 6e 6f 74 69 63 65 | 3] fram|e-notice|
|00001040| 2d 75 73 65 72 2d 73 65 | 74 74 69 6e 67 73 20 23 |-user-se|ttings #|
|00001050| 5b 6e 69 6c 20 22 c0 09 | 9e 89 1a 83 11 00 5c 6e |[nil "..|......\n|
|00001060| 41 c3 3d 3f 14 82 1f 00 | c0 5c 66 83 1a 00 c5 82 |A.=?....|.\f.....|
|00001070| 1b 00 c3 42 09 42 11 29 | 70 1e 06 c7 0e 08 21 83 |...B.B.)|p.....!.|
|00001080| a8 01 c9 0e 5c 6e 9e 86 | 38 00 c9 09 9e 86 38 00 |....\n..|8.....8.|
|00001090| cb 41 cc 3d 84 07 01 cd | 89 1e 0e 1e 0f d0 d1 0e |.A.=....|........|
|000010a0| 08 21 9e 41 84 55 00 d2 | c5 21 88 82 44 00 d3 0e |.!.A.U..|.!..D...|
|000010b0| 5c 6e 09 d1 0e 08 21 cd | 24 16 0f d4 d5 d6 0e 0f |\n....!.|$.......|
|000010c0| 9e 0e 0f 5c 22 42 16 0f | d7 0e 18 9e 83 7b 00 d9 |...\"B..|.....{..|
|000010d0| d7 0e 0f 5c 22 16 0f da | 0e 18 9e 83 89 00 d9 da |...\"...|........|
|000010e0| 0e 0f 5c 22 16 0f db 0e | 18 9e 83 97 00 d9 db 0e |..\"....|........|
|000010f0| 0f 5c 22 16 0f dc 0e 18 | 9e 83 a5 00 d9 dc 0e 0f |.\".....|........|
|00001100| 5c 22 16 0f dd d3 0e 18 | 0e 0f 5c 22 21 16 0e d5 |\"......|..\"!...|
|00001110| 0e 08 de 20 5c 22 84 c0 | 00 dd d3 0e 1f e0 5c 22 |... \"..|......\"|
|00001120| 21 88 e1 e2 21 89 1e 23 | 84 d1 00 0e 24 0e 08 3d |!...!..#|....$..=|
|00001130| 83 f5 00 e1 e5 21 86 d9 | 00 de 20 40 1e 26 e7 0e |.....!..|.. @.&..|
|00001140| 26 21 1e 28 0e 24 0e 08 | 3d 83 ee 00 0e 26 16 24 |&!.(.$..|=....&.$|
|00001150| e9 ea 0e 23 5c 22 88 2a | 29 eb 0e 08 0e 0e 5c 22 |...#\".*|).....\"|
|00001160| 88 ec 0e 08 cc 5c 22 88 | 2a 82 a8 01 cd 89 89 1e |.....\".|*.......|
|00001170| 2d 1e 2e 1e 2f d3 0e 5c | 6e 09 5c 22 16 2e d7 0e |-.../..\|n.\"....|
|00001180| 18 9e 83 25 01 d9 d7 0e | 2e 5c 22 16 2e da 0e 18 |...%....|.\".....|
|00001190| 9e 83 33 01 d9 da 0e 2e | 5c 22 16 2e db 0e 18 9e |..3.....|\"......|
|000011a0| 83 41 01 d9 db 0e 2e 5c | 22 16 2e dc 0e 18 9e 83 |.A.....\|".......|
|000011b0| 4f 01 d9 dc 0e 2e 5c 22 | 16 2e 0e 2e 89 16 2d 83 |O.....\"|......-.|
|000011c0| 8f 01 cd 89 1e 30 1e 31 | 0e 2d 40 40 0e 32 9e 41 |.....0.1|.-@@.2.A|
|000011d0| 16 30 0e 2d 40 40 0e 2e | 9e 41 16 31 0e 30 0e 31 |.0.-@@..|.A.1.0.1|
|000011e0| 3d 84 85 01 0e 2d 40 40 | 0e 31 42 0e 2f 42 16 2f |=....-@@|.1B./B./|
|000011f0| 2a 0e 2d 41 89 16 2d 84 | 57 01 0e 2f 9f 16 2f f3 |*.-A..-.|W../../.|
|00001200| 0e 08 0e 2f 5c 22 88 f4 | 0e 2f 9e 83 a7 01 f5 0e |.../\"..|./......|
|00001210| 08 21 88 2b 0e 06 71 88 | cd 89 16 08 29 87 22 20 |.!.+..q.|....)." |
|00001220| 5b 6d 65 6e 75 2d 62 61 | 72 2d 6c 69 6e 65 73 20 |[menu-ba|r-lines |
|00001230| 64 65 66 61 75 6c 74 2d | 66 72 61 6d 65 2d 61 6c |default-|frame-al|
|00001240| 69 73 74 20 64 65 66 61 | 75 6c 74 20 30 20 6d 65 |ist defa|ult 0 me|
|00001250| 6e 75 2d 62 61 72 2d 6d | 6f 64 65 20 31 20 6f 6c |nu-bar-m|ode 1 ol|
|00001260| 64 2d 62 75 66 66 65 72 | 20 66 72 61 6d 65 2d 6c |d-buffer| frame-l|
|00001270| 69 76 65 2d 70 20 66 72 | 61 6d 65 2d 69 6e 69 74 |ive-p fr|ame-init|
|00001280| 69 61 6c 2d 66 72 61 6d | 65 20 6d 69 6e 69 62 75 |ial-fram|e minibu|
|00001290| 66 66 65 72 20 69 6e 69 | 74 69 61 6c 2d 66 72 61 |ffer ini|tial-fra|
|000012a0| 6d 65 2d 61 6c 69 73 74 | 20 28 6d 69 6e 69 62 75 |me-alist| (minibu|
|000012b0| 66 66 65 72 20 2e 20 74 | 29 20 74 20 6e 69 6c 20 |ffer . t|) t nil |
|000012c0| 6e 65 77 20 70 61 72 6d | 73 20 76 69 73 69 62 69 |new parm|s visibi|
|000012d0| 6c 69 74 79 20 66 72 61 | 6d 65 2d 70 61 72 61 6d |lity fra|me-param|
|000012e0| 65 74 65 72 73 20 73 6c | 65 65 70 2d 66 6f 72 20 |eters sl|eep-for |
|000012f0| 61 70 70 65 6e 64 20 28 | 72 65 76 65 72 73 65 29 |append (|reverse)|
|00001300| 20 64 65 6c 71 20 72 65 | 76 65 72 73 65 20 68 65 | delq re|verse he|
|00001310| 69 67 68 74 20 66 72 61 | 6d 65 2d 69 6e 69 74 69 |ight fra|me-initi|
|00001320| 61 6c 2d 67 65 6f 6d 65 | 74 72 79 2d 61 72 67 75 |al-geome|try-argu|
|00001330| 6d 65 6e 74 73 20 66 72 | 61 6d 65 2d 64 65 6c 65 |ments fr|ame-dele|
|00001340| 74 65 2d 61 6c 6c 20 77 | 69 64 74 68 20 6c 65 66 |te-all w|idth lef|
|00001350| 74 20 74 6f 70 20 6d 61 | 6b 65 2d 66 72 61 6d 65 |t top ma|ke-frame|
|00001360| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 66 72 61 6d | minibuf|fer-fram|
|00001370| 65 2d 6c 69 73 74 20 6d | 69 6e 69 62 75 66 66 65 |e-list m|inibuffe|
|00001380| 72 2d 66 72 61 6d 65 2d | 61 6c 69 73 74 20 28 28 |r-frame-|alist ((|
|00001390| 6d 69 6e 69 62 75 66 66 | 65 72 20 2e 20 6f 6e 6c |minibuff|er . onl|
|000013a0| 79 29 29 20 66 69 6c 74 | 65 72 65 64 2d 66 72 61 |y)) filt|ered-fra|
|000013b0| 6d 65 2d 6c 69 73 74 20 | 23 5b 28 66 72 61 6d 65 |me-list |#[(frame|
|000013c0| 29 20 22 08 09 3d 3f 85 | 0e 00 c2 c3 08 21 21 09 |) "..=?.|.....!!.|
|000013d0| 3d 87 22 20 5b 66 72 61 | 6d 65 20 66 72 61 6d 65 |=." [fra|me frame|
|000013e0| 2d 69 6e 69 74 69 61 6c | 2d 66 72 61 6d 65 20 77 |-initial|-frame w|
|000013f0| 69 6e 64 6f 77 2d 66 72 | 61 6d 65 20 6d 69 6e 69 |indow-fr|ame mini|
|00001400| 62 75 66 66 65 72 2d 77 | 69 6e 64 6f 77 5d 20 33 |buffer-w|indow] 3|
|00001410| 5d 20 75 73 65 72 73 2d | 6f 66 2d 69 6e 69 74 69 |] users-|of-initi|
|00001420| 61 6c 20 64 65 66 61 75 | 6c 74 2d 6d 69 6e 69 62 |al defau|lt-minib|
|00001430| 75 66 66 65 72 2d 66 72 | 61 6d 65 20 23 5b 28 66 |uffer-fr|ame #[(f|
|00001440| 72 61 6d 65 29 20 22 c0 | c1 5c 6e 21 9e 41 c3 3d |rame) ".|.\n!.A.=|
|00001450| 87 22 20 5b 6d 69 6e 69 | 62 75 66 66 65 72 20 66 |." [mini|buffer f|
|00001460| 72 61 6d 65 2d 70 61 72 | 61 6d 65 74 65 72 73 20 |rame-par|ameters |
|00001470| 66 72 61 6d 65 20 6f 6e | 6c 79 5d 20 33 5d 20 6e |frame on|ly] 3] n|
|00001480| 65 77 2d 73 75 72 72 6f | 67 61 74 65 20 6d 69 6e |ew-surro|gate min|
|00001490| 69 62 75 66 66 65 72 2d | 77 69 6e 64 6f 77 20 6e |ibuffer-|window n|
|000014a0| 65 77 2d 6d 69 6e 69 62 | 75 66 66 65 72 20 6d 61 |ew-minib|uffer ma|
|000014b0| 70 63 61 72 20 23 5b 28 | 66 72 61 6d 65 29 20 22 |pcar #[(|frame) "|
|000014c0| c0 09 c2 0b 42 43 5c 22 | 87 22 20 5b 6d 6f 64 69 |....BC\"|." [modi|
|000014d0| 66 79 2d 66 72 61 6d 65 | 2d 70 61 72 61 6d 65 74 |fy-frame|-paramet|
|000014e0| 65 72 73 20 66 72 61 6d | 65 20 6d 69 6e 69 62 75 |ers fram|e minibu|
|000014f0| 66 66 65 72 20 6e 65 77 | 2d 6d 69 6e 69 62 75 66 |ffer new|-minibuf|
|00001500| 66 65 72 5d 20 34 5d 20 | 72 65 64 69 72 65 63 74 |fer] 4] |redirect|
|00001510| 2d 66 72 61 6d 65 2d 66 | 6f 63 75 73 20 64 65 6c |-frame-f|ocus del|
|00001520| 65 74 65 2d 66 72 61 6d | 65 20 74 61 69 6c 20 61 |ete-fram|e tail a|
|00001530| 6c 6c 70 61 72 6d 73 20 | 6e 65 77 70 61 72 6d 73 |llparms |newparms|
|00001540| 20 6f 6c 64 76 61 6c 20 | 6e 65 77 76 61 6c 20 66 | oldval |newval f|
|00001550| 72 61 6d 65 2d 69 6e 69 | 74 69 61 6c 2d 66 72 61 |rame-ini|tial-fra|
|00001560| 6d 65 2d 61 6c 69 73 74 | 20 6d 6f 64 69 66 79 2d |me-alist| modify-|
|00001570| 66 72 61 6d 65 2d 70 61 | 72 61 6d 65 74 65 72 73 |frame-pa|rameters|
|00001580| 20 66 6f 6e 74 20 66 72 | 61 6d 65 2d 75 70 64 61 | font fr|ame-upda|
|00001590| 74 65 2d 66 61 63 65 73 | 5d 20 36 5d 20 66 72 61 |te-faces|] 6] fra|
|000015a0| 6d 65 2d 64 65 6c 65 74 | 65 2d 61 6c 6c 20 23 5b |me-delet|e-all #[|
|000015b0| 28 6b 65 79 20 61 6c 69 | 73 74 29 20 22 c0 09 21 |(key ali|st) "..!|
|000015c0| 89 11 89 1a 83 1f 00 5c | 6e 40 40 0b 3d 83 18 00 |.......\|n@@.=...|
|000015d0| c4 5c 6e 40 09 5c 22 11 | 5c 6e 41 89 12 84 5c 6e |.\n@.\".|\nA...\n|
|000015e0| 00 09 29 87 22 20 5b 63 | 6f 70 79 2d 73 65 71 75 |..)." [c|opy-sequ|
|000015f0| 65 6e 63 65 20 61 6c 69 | 73 74 20 74 61 69 6c 20 |ence ali|st tail |
|00001600| 6b 65 79 20 64 65 6c 71 | 5d 20 34 5d 20 67 65 74 |key delq|] 4] get|
|00001610| 2d 6f 74 68 65 72 2d 66 | 72 61 6d 65 20 23 5b 6e |-other-f|rame #[n|
|00001620| 69 6c 20 22 c0 c1 20 21 | c1 20 9a 83 0d 00 c2 20 |il ".. !|. ..... |
|00001630| 87 c0 c1 20 21 87 22 20 | 5b 6e 65 78 74 2d 66 72 |... !." |[next-fr|
|00001640| 61 6d 65 20 73 65 6c 65 | 63 74 65 64 2d 66 72 61 |ame sele|cted-fra|
|00001650| 6d 65 20 6d 61 6b 65 2d | 66 72 61 6d 65 5d 20 33 |me make-|frame] 3|
|00001660| 5d 5d 20 33 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 3).(d|efalias |
|00001670| 27 6e 65 78 74 2d 6d 75 | 6c 74 69 66 72 61 6d 65 |'next-mu|ltiframe|
|00001680| 2d 77 69 6e 64 6f 77 20 | 23 5b 6e 69 6c 20 22 c0 |-window |#[nil ".|
|00001690| c1 c2 20 c3 20 c4 56 c5 | 23 21 87 22 20 5b 73 65 |.. . .V.|#!." [se|
|000016a0| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 6e 65 78 74 |lect-win|dow next|
|000016b0| 2d 77 69 6e 64 6f 77 20 | 73 65 6c 65 63 74 65 64 |-window |selected|
|000016c0| 2d 77 69 6e 64 6f 77 20 | 6d 69 6e 69 62 75 66 66 |-window |minibuff|
|000016d0| 65 72 2d 64 65 70 74 68 | 20 30 20 74 5d 20 35 20 |er-depth| 0 t] 5 |
|000016e0| 22 5c 0a 53 65 6c 65 63 | 74 20 74 68 65 20 6e 65 |"\.Selec|t the ne|
|000016f0| 78 74 20 77 69 6e 64 6f | 77 2c 20 72 65 67 61 72 |xt windo|w, regar|
|00001700| 64 6c 65 73 73 20 6f 66 | 20 77 68 69 63 68 20 66 |dless of| which f|
|00001710| 72 61 6d 65 20 69 74 20 | 69 73 20 6f 6e 2e 22 20 |rame it |is on." |
|00001720| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001730| 27 70 72 65 76 69 6f 75 | 73 2d 6d 75 6c 74 69 66 |'previou|s-multif|
|00001740| 72 61 6d 65 2d 77 69 6e | 64 6f 77 20 23 5b 6e 69 |rame-win|dow #[ni|
|00001750| 6c 20 22 c0 c1 c2 20 c3 | 20 c4 56 c5 23 21 87 22 |l "... .| .V.#!."|
|00001760| 20 5b 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 | [select|-window |
|00001770| 70 72 65 76 69 6f 75 73 | 2d 77 69 6e 64 6f 77 20 |previous|-window |
|00001780| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00001790| 6d 69 6e 69 62 75 66 66 | 65 72 2d 64 65 70 74 68 |minibuff|er-depth|
|000017a0| 20 30 20 74 5d 20 35 20 | 22 5c 0a 53 65 6c 65 63 | 0 t] 5 |"\.Selec|
|000017b0| 74 20 74 68 65 20 70 72 | 65 76 69 6f 75 73 20 77 |t the pr|evious w|
|000017c0| 69 6e 64 6f 77 2c 20 72 | 65 67 61 72 64 6c 65 73 |indow, r|egardles|
|000017d0| 73 20 6f 66 20 77 68 69 | 63 68 20 66 72 61 6d 65 |s of whi|ch frame|
|000017e0| 20 69 74 20 69 73 20 6f | 6e 2e 22 20 6e 69 6c 5d | it is o|n." nil]|
|000017f0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 28 71 75 6f |).(defal|ias (quo|
|00001800| 74 65 20 6e 65 77 2d 66 | 72 61 6d 65 29 20 28 71 |te new-f|rame) (q|
|00001810| 75 6f 74 65 20 6d 61 6b | 65 2d 66 72 61 6d 65 29 |uote mak|e-frame)|
|00001820| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 6b |).(defal|ias 'mak|
|00001830| 65 2d 66 72 61 6d 65 20 | 23 5b 28 26 6f 70 74 69 |e-frame |#[(&opti|
|00001840| 6f 6e 61 6c 20 70 61 72 | 61 6d 65 74 65 72 73 29 |onal par|ameters)|
|00001850| 20 22 c0 19 c2 c3 21 88 | 5c 66 0d 21 11 c2 c6 21 | "....!.|\f.!...!|
|00001860| 88 09 29 87 22 20 5b 6e | 69 6c 20 6e 66 72 61 6d |..)." [n|il nfram|
|00001870| 65 20 72 75 6e 2d 68 6f | 6f 6b 73 20 62 65 66 6f |e run-ho|oks befo|
|00001880| 72 65 2d 6d 61 6b 65 2d | 66 72 61 6d 65 2d 68 6f |re-make-|frame-ho|
|00001890| 6f 6b 20 66 72 61 6d 65 | 2d 63 72 65 61 74 69 6f |ok frame|-creatio|
|000018a0| 6e 2d 66 75 6e 63 74 69 | 6f 6e 20 70 61 72 61 6d |n-functi|on param|
|000018b0| 65 74 65 72 73 20 61 66 | 74 65 72 2d 6d 61 6b 65 |eters af|ter-make|
|000018c0| 2d 66 72 61 6d 65 2d 68 | 6f 6f 6b 5d 20 32 20 22 |-frame-h|ook] 2 "|
|000018d0| 5c 0a 43 72 65 61 74 65 | 20 61 20 6e 65 77 20 66 |\.Create| a new f|
|000018e0| 72 61 6d 65 2c 20 64 69 | 73 70 6c 61 79 69 6e 67 |rame, di|splaying|
|000018f0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|00001900| 66 65 72 2e 0a 0a 4f 70 | 74 69 6f 6e 61 6c 20 61 |fer...Op|tional a|
|00001910| 72 67 75 6d 65 6e 74 20 | 50 41 52 41 4d 45 54 45 |rgument |PARAMETE|
|00001920| 52 53 20 69 73 20 61 6e | 20 61 6c 69 73 74 20 6f |RS is an| alist o|
|00001930| 66 20 70 61 72 61 6d 65 | 74 65 72 73 20 66 6f 72 |f parame|ters for|
|00001940| 20 74 68 65 20 6e 65 77 | 0a 66 72 61 6d 65 2e 20 | the new|.frame. |
|00001950| 20 53 70 65 63 69 66 69 | 63 61 6c 6c 79 2c 20 50 | Specifi|cally, P|
|00001960| 41 52 41 4d 45 54 45 52 | 53 20 69 73 20 61 20 6c |ARAMETER|S is a l|
|00001970| 69 73 74 20 6f 66 20 70 | 61 69 72 73 2c 20 65 61 |ist of p|airs, ea|
|00001980| 63 68 20 68 61 76 69 6e | 67 20 6f 6e 65 0a 6f 66 |ch havin|g one.of|
|00001990| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 66 | the fol|lowing f|
|000019a0| 6f 72 6d 73 3a 0a 0a 28 | 6e 61 6d 65 20 2e 20 53 |orms:..(|name . S|
|000019b0| 54 52 49 4e 47 29 09 2d | 20 54 68 65 20 66 72 61 |TRING).-| The fra|
|000019c0| 6d 65 20 73 68 6f 75 6c | 64 20 62 65 20 6e 61 6d |me shoul|d be nam|
|000019d0| 65 64 20 53 54 52 49 4e | 47 2e 0a 0a 28 68 65 69 |ed STRIN|G...(hei|
|000019e0| 67 68 74 20 2e 20 4e 55 | 4d 42 45 52 29 20 2d 20 |ght . NU|MBER) - |
|000019f0| 54 68 65 20 66 72 61 6d | 65 20 73 68 6f 75 6c 64 |The fram|e should|
|00001a00| 20 62 65 20 4e 55 4d 42 | 45 52 20 74 65 78 74 20 | be NUMB|ER text |
|00001a10| 6c 69 6e 65 73 20 68 69 | 67 68 2e 20 20 49 66 0a |lines hi|gh. If.|
|00001a20| 09 74 68 69 73 20 70 61 | 72 61 6d 65 74 65 72 20 |.this pa|rameter |
|00001a30| 69 73 20 70 72 65 73 65 | 6e 74 2c 20 74 68 65 20 |is prese|nt, the |
|00001a40| 77 69 64 74 68 20 70 61 | 72 61 6d 65 74 65 72 20 |width pa|rameter |
|00001a50| 6d 75 73 74 20 61 6c 73 | 6f 20 62 65 0a 09 67 69 |must als|o be..gi|
|00001a60| 76 65 6e 2e 0a 0a 28 77 | 69 64 74 68 20 2e 20 4e |ven...(w|idth . N|
|00001a70| 55 4d 42 45 52 29 20 2d | 20 54 68 65 20 66 72 61 |UMBER) -| The fra|
|00001a80| 6d 65 20 73 68 6f 75 6c | 64 20 62 65 20 4e 55 4d |me shoul|d be NUM|
|00001a90| 42 45 52 20 63 68 61 72 | 61 63 74 65 72 73 20 69 |BER char|acters i|
|00001aa0| 6e 20 77 69 64 74 68 2e | 0a 09 49 66 20 74 68 69 |n width.|..If thi|
|00001ab0| 73 20 70 61 72 61 6d 65 | 74 65 72 20 69 73 20 70 |s parame|ter is p|
|00001ac0| 72 65 73 65 6e 74 2c 20 | 74 68 65 20 68 65 69 67 |resent, |the heig|
|00001ad0| 68 74 20 70 61 72 61 6d | 65 74 65 72 20 6d 75 73 |ht param|eter mus|
|00001ae0| 74 20 61 6c 73 6f 0a 09 | 62 65 20 67 69 76 65 6e |t also..|be given|
|00001af0| 2e 0a 0a 28 6d 69 6e 69 | 62 75 66 66 65 72 20 2e |...(mini|buffer .|
|00001b00| 20 74 29 20 2d 20 74 68 | 65 20 66 72 61 6d 65 20 | t) - th|e frame |
|00001b10| 73 68 6f 75 6c 64 20 68 | 61 76 65 20 61 20 6d 69 |should h|ave a mi|
|00001b20| 6e 69 62 75 66 66 65 72 | 0a 28 6d 69 6e 69 62 75 |nibuffer|.(minibu|
|00001b30| 66 66 65 72 20 2e 20 6e | 69 6c 29 20 2d 20 74 68 |ffer . n|il) - th|
|00001b40| 65 20 66 72 61 6d 65 20 | 73 68 6f 75 6c 64 20 68 |e frame |should h|
|00001b50| 61 76 65 20 6e 6f 20 6d | 69 6e 69 62 75 66 66 65 |ave no m|inibuffe|
|00001b60| 72 0a 28 6d 69 6e 69 62 | 75 66 66 65 72 20 2e 20 |r.(minib|uffer . |
|00001b70| 6f 6e 6c 79 29 20 2d 20 | 74 68 65 20 66 72 61 6d |only) - |the fram|
|00001b80| 65 20 73 68 6f 75 6c 64 | 20 63 6f 6e 74 61 69 6e |e should| contain|
|00001b90| 20 6f 6e 6c 79 20 61 20 | 6d 69 6e 69 62 75 66 66 | only a |minibuff|
|00001ba0| 65 72 0a 28 6d 69 6e 69 | 62 75 66 66 65 72 20 2e |er.(mini|buffer .|
|00001bb0| 20 57 49 4e 44 4f 57 29 | 20 2d 20 74 68 65 20 66 | WINDOW)| - the f|
|00001bc0| 72 61 6d 65 20 73 68 6f | 75 6c 64 20 75 73 65 20 |rame sho|uld use |
|00001bd0| 57 49 4e 44 4f 57 20 61 | 73 20 69 74 73 20 6d 69 |WINDOW a|s its mi|
|00001be0| 6e 69 62 75 66 66 65 72 | 20 77 69 6e 64 6f 77 2e |nibuffer| window.|
|00001bf0| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00001c00| 73 20 27 66 69 6c 74 65 | 72 65 64 2d 66 72 61 6d |s 'filte|red-fram|
|00001c10| 65 2d 6c 69 73 74 20 23 | 5b 28 70 72 65 64 69 63 |e-list #|[(predic|
|00001c20| 61 74 65 29 20 22 c0 20 | c1 1a 89 1b 3a 83 1d 00 |ate) ". |....:...|
|00001c30| 5c 66 0b 40 21 83 16 00 | 0b 40 5c 6e 42 12 0b 41 |\f.@!...|.@\nB..A|
|00001c40| 89 13 82 06 00 5c 6e 2a | 87 22 20 5b 66 72 61 6d |.....\n*|." [fram|
|00001c50| 65 2d 6c 69 73 74 20 6e | 69 6c 20 67 6f 6f 64 2d |e-list n|il good-|
|00001c60| 66 72 61 6d 65 73 20 66 | 72 61 6d 65 73 20 70 72 |frames f|rames pr|
|00001c70| 65 64 69 63 61 74 65 5d | 20 33 20 22 5c 0a 52 65 |edicate]| 3 "\.Re|
|00001c80| 74 75 72 6e 20 61 20 6c | 69 73 74 20 6f 66 20 61 |turn a l|ist of a|
|00001c90| 6c 6c 20 6c 69 76 65 20 | 66 72 61 6d 65 73 20 77 |ll live |frames w|
|00001ca0| 68 69 63 68 20 73 61 74 | 69 73 66 79 20 50 52 45 |hich sat|isfy PRE|
|00001cb0| 44 49 43 41 54 45 2e 22 | 5d 29 0a 28 64 65 66 61 |DICATE."|]).(defa|
|00001cc0| 6c 69 61 73 20 27 6d 69 | 6e 69 62 75 66 66 65 72 |lias 'mi|nibuffer|
|00001cd0| 2d 66 72 61 6d 65 2d 6c | 69 73 74 20 23 5b 6e 69 |-frame-l|ist #[ni|
|00001ce0| 6c 20 22 c0 c1 21 87 22 | 20 5b 66 69 6c 74 65 72 |l "..!."| [filter|
|00001cf0| 65 64 2d 66 72 61 6d 65 | 2d 6c 69 73 74 20 23 5b |ed-frame|-list #[|
|00001d00| 28 66 72 61 6d 65 29 20 | 22 08 c1 c2 08 21 21 3d |(frame) |"....!!=|
|00001d10| 87 22 20 5b 66 72 61 6d | 65 20 77 69 6e 64 6f 77 |." [fram|e window|
|00001d20| 2d 66 72 61 6d 65 20 6d | 69 6e 69 62 75 66 66 65 |-frame m|inibuffe|
|00001d30| 72 2d 77 69 6e 64 6f 77 | 5d 20 34 5d 5d 20 32 20 |r-window|] 4]] 2 |
|00001d40| 22 5c 0a 52 65 74 75 72 | 6e 20 61 20 6c 69 73 74 |"\.Retur|n a list|
|00001d50| 20 6f 66 20 61 6c 6c 20 | 66 72 61 6d 65 73 20 77 | of all |frames w|
|00001d60| 69 74 68 20 74 68 65 69 | 72 20 6f 77 6e 20 6d 69 |ith thei|r own mi|
|00001d70| 6e 69 62 75 66 66 65 72 | 73 2e 22 5d 29 0a 28 64 |nibuffer|s."]).(d|
|00001d80| 65 66 61 6c 69 61 73 20 | 27 66 72 61 6d 65 2d 72 |efalias |'frame-r|
|00001d90| 65 6d 6f 76 65 2d 67 65 | 6f 6d 65 74 72 79 2d 70 |emove-ge|ometry-p|
|00001da0| 61 72 61 6d 73 20 23 5b | 28 70 61 72 61 6d 2d 6c |arams #[|(param-l|
|00001db0| 69 73 74 29 20 22 c0 09 | 42 89 11 1a 5c 6e 41 3a |ist) "..|B...\nA:|
|00001dc0| 83 32 00 5c 6e 41 40 3a | 83 2b 00 5c 6e 41 40 40 |.2.\nA@:|.+.\nA@@|
|00001dd0| c3 3e 83 2b 00 5c 6e 41 | 40 5c 66 42 14 5c 6e 89 |.>.+.\nA|@\fB.\n.|
|00001de0| 41 41 a1 88 82 06 00 5c | 6e 41 89 12 82 07 00 29 |AA.....\|nA.....)|
|00001df0| 5c 66 9f 14 09 41 87 22 | 20 5b 6e 69 6c 20 70 61 |\f...A."| [nil pa|
|00001e00| 72 61 6d 2d 6c 69 73 74 | 20 74 61 69 6c 20 28 68 |ram-list| tail (h|
|00001e10| 65 69 67 68 74 20 77 69 | 64 74 68 20 74 6f 70 20 |eight wi|dth top |
|00001e20| 6c 65 66 74 20 75 73 65 | 72 2d 70 6f 73 69 74 69 |left use|r-positi|
|00001e30| 6f 6e 20 75 73 65 72 2d | 73 69 7a 65 29 20 66 72 |on user-|size) fr|
|00001e40| 61 6d 65 2d 69 6e 69 74 | 69 61 6c 2d 67 65 6f 6d |ame-init|ial-geom|
|00001e50| 65 74 72 79 2d 61 72 67 | 75 6d 65 6e 74 73 5d 20 |etry-arg|uments] |
|00001e60| 33 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |3 "\.Ret|urn the |
|00001e70| 70 61 72 61 6d 65 74 65 | 72 20 6c 69 73 74 20 50 |paramete|r list P|
|00001e80| 41 52 41 4d 2d 4c 49 53 | 54 2c 20 62 75 74 20 77 |ARAM-LIS|T, but w|
|00001e90| 69 74 68 20 67 65 6f 6d | 65 74 72 79 20 73 70 65 |ith geom|etry spe|
|00001ea0| 63 73 20 72 65 6d 6f 76 | 65 64 2e 0a 54 68 69 73 |cs remov|ed..This|
|00001eb0| 20 64 65 6c 65 74 65 73 | 20 61 6c 6c 20 62 69 6e | deletes| all bin|
|00001ec0| 64 69 6e 67 73 20 69 6e | 20 50 41 52 41 4d 2d 4c |dings in| PARAM-L|
|00001ed0| 49 53 54 20 66 6f 72 20 | 60 74 6f 70 27 2c 20 60 |IST for |`top', `|
|00001ee0| 6c 65 66 74 27 2c 20 60 | 77 69 64 74 68 27 2c 0a |left', `|width',.|
|00001ef0| 60 68 65 69 67 68 74 27 | 2c 20 60 75 73 65 72 2d |`height'|, `user-|
|00001f00| 73 69 7a 65 27 20 61 6e | 64 20 60 75 73 65 72 2d |size' an|d `user-|
|00001f10| 70 6f 73 69 74 69 6f 6e | 27 20 70 61 72 61 6d 65 |position|' parame|
|00001f20| 74 65 72 73 2e 0a 45 6d | 61 63 73 20 75 73 65 73 |ters..Em|acs uses|
|00001f30| 20 74 68 69 73 20 74 6f | 20 61 76 6f 69 64 20 6f | this to| avoid o|
|00001f40| 76 65 72 72 69 64 69 6e | 67 20 65 78 70 6c 69 63 |verridin|g explic|
|00001f50| 69 74 20 6d 6f 76 65 73 | 20 61 6e 64 20 72 65 73 |it moves| and res|
|00001f60| 69 7a 69 6e 67 73 20 66 | 72 6f 6d 0a 74 68 65 20 |izings f|rom.the |
|00001f70| 75 73 65 72 20 64 75 72 | 69 6e 67 20 73 74 61 72 |user dur|ing star|
|00001f80| 74 75 70 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |tup."]).|(defalia|
|00001f90| 73 20 27 6f 74 68 65 72 | 2d 66 72 61 6d 65 20 23 |s 'other|-frame #|
|00001fa0| 5b 28 61 72 67 29 20 22 | c0 20 19 5c 6e c3 56 83 |[(arg) "|. .\n.V.|
|00001fb0| 23 00 c4 09 21 11 c5 09 | 21 c6 3d 84 1c 00 c4 09 |#...!...|!.=.....|
|00001fc0| 21 11 82 0d 00 5c 6e 53 | 89 12 82 04 00 5c 6e c3 |!....\nS|.....\n.|
|00001fd0| 57 83 43 00 c7 09 21 11 | c5 09 21 c6 3d 84 3c 00 |W.C...!.|..!.=.<.|
|00001fe0| c7 09 21 11 82 2d 00 5c | 6e 54 89 12 82 24 00 c8 |..!..-.\|nT...$..|
|00001ff0| 09 21 88 c9 09 21 88 ca | c0 20 cb 20 53 c3 23 88 |.!...!..|. . S.#.|
|00002000| cc 20 29 87 22 20 5b 73 | 65 6c 65 63 74 65 64 2d |. )." [s|elected-|
|00002010| 66 72 61 6d 65 20 66 72 | 61 6d 65 20 61 72 67 20 |frame fr|ame arg |
|00002020| 30 20 6e 65 78 74 2d 66 | 72 61 6d 65 20 66 72 61 |0 next-f|rame fra|
|00002030| 6d 65 2d 76 69 73 69 62 | 6c 65 2d 70 20 74 20 70 |me-visib|le-p t p|
|00002040| 72 65 76 69 6f 75 73 2d | 66 72 61 6d 65 20 72 61 |revious-|frame ra|
|00002050| 69 73 65 2d 66 72 61 6d | 65 20 73 65 6c 65 63 74 |ise-fram|e select|
|00002060| 2d 66 72 61 6d 65 20 73 | 65 74 2d 6d 6f 75 73 65 |-frame s|et-mouse|
|00002070| 2d 70 6f 73 69 74 69 6f | 6e 20 66 72 61 6d 65 2d |-positio|n frame-|
|00002080| 77 69 64 74 68 20 75 6e | 66 6f 63 75 73 2d 66 72 |width un|focus-fr|
|00002090| 61 6d 65 5d 20 35 20 22 | 5c 0a 53 65 6c 65 63 74 |ame] 5 "|\.Select|
|000020a0| 20 74 68 65 20 41 52 47 | 27 74 68 20 64 69 66 66 | the ARG|'th diff|
|000020b0| 65 72 65 6e 74 20 76 69 | 73 69 62 6c 65 20 66 72 |erent vi|sible fr|
|000020c0| 61 6d 65 2c 20 61 6e 64 | 20 72 61 69 73 65 20 69 |ame, and| raise i|
|000020d0| 74 2e 0a 41 6c 6c 20 66 | 72 61 6d 65 73 20 61 72 |t..All f|rames ar|
|000020e0| 65 20 61 72 72 61 6e 67 | 65 64 20 69 6e 20 61 20 |e arrang|ed in a |
|000020f0| 63 79 63 6c 69 63 20 6f | 72 64 65 72 2e 0a 54 68 |cyclic o|rder..Th|
|00002100| 69 73 20 63 6f 6d 6d 61 | 6e 64 20 73 65 6c 65 63 |is comma|nd selec|
|00002110| 74 73 20 74 68 65 20 66 | 72 61 6d 65 20 41 52 47 |ts the f|rame ARG|
|00002120| 20 73 74 65 70 73 20 61 | 77 61 79 20 69 6e 20 74 | steps a|way in t|
|00002130| 68 61 74 20 6f 72 64 65 | 72 2e 0a 41 20 6e 65 67 |hat orde|r..A neg|
|00002140| 61 74 69 76 65 20 41 52 | 47 20 6d 6f 76 65 73 20 |ative AR|G moves |
|00002150| 69 6e 20 74 68 65 20 6f | 70 70 6f 73 69 74 65 20 |in the o|pposite |
|00002160| 6f 72 64 65 72 2e 22 20 | 22 70 22 5d 29 0a 28 64 |order." |"p"]).(d|
|00002170| 65 66 61 6c 69 61 73 20 | 27 63 75 72 72 65 6e 74 |efalias |'current|
|00002180| 2d 66 72 61 6d 65 2d 63 | 6f 6e 66 69 67 75 72 61 |-frame-c|onfigura|
|00002190| 74 69 6f 6e 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 c3 |tion #[n|il "....|
|000021a0| 20 5c 22 42 87 22 20 5b | 66 72 61 6d 65 2d 63 6f | \"B." [|frame-co|
|000021b0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 6d 61 70 63 |nfigurat|ion mapc|
|000021c0| 61 72 20 23 5b 28 66 72 | 61 6d 65 29 20 22 08 c1 |ar #[(fr|ame) "..|
|000021d0| 08 21 c2 08 21 45 87 22 | 20 5b 66 72 61 6d 65 20 |.!..!E."| [frame |
|000021e0| 66 72 61 6d 65 2d 70 61 | 72 61 6d 65 74 65 72 73 |frame-pa|rameters|
|000021f0| 20 63 75 72 72 65 6e 74 | 2d 77 69 6e 64 6f 77 2d | current|-window-|
|00002200| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 5d 20 34 |configur|ation] 4|
|00002210| 5d 20 66 72 61 6d 65 2d | 6c 69 73 74 5d 20 34 20 |] frame-|list] 4 |
|00002220| 22 5c 0a 52 65 74 75 72 | 6e 20 61 20 6c 69 73 74 |"\.Retur|n a list|
|00002230| 20 64 65 73 63 72 69 62 | 69 6e 67 20 74 68 65 20 | describ|ing the |
|00002240| 70 6f 73 69 74 69 6f 6e | 73 20 61 6e 64 20 73 74 |position|s and st|
|00002250| 61 74 65 73 20 6f 66 20 | 61 6c 6c 20 66 72 61 6d |ates of |all fram|
|00002260| 65 73 2e 0a 49 74 73 20 | 63 61 72 20 69 73 20 60 |es..Its |car is `|
|00002270| 66 72 61 6d 65 2d 63 6f | 6e 66 69 67 75 72 61 74 |frame-co|nfigurat|
|00002280| 69 6f 6e 27 2e 0a 45 61 | 63 68 20 65 6c 65 6d 65 |ion'..Ea|ch eleme|
|00002290| 6e 74 20 6f 66 20 74 68 | 65 20 63 64 72 20 69 73 |nt of th|e cdr is|
|000022a0| 20 61 20 6c 69 73 74 20 | 6f 66 20 74 68 65 20 66 | a list |of the f|
|000022b0| 6f 72 6d 20 28 46 52 41 | 4d 45 20 41 4c 49 53 54 |orm (FRA|ME ALIST|
|000022c0| 20 57 49 4e 44 4f 57 2d | 43 4f 4e 46 49 47 29 2c | WINDOW-|CONFIG),|
|000022d0| 0a 77 68 65 72 65 0a 20 | 20 46 52 41 4d 45 20 69 |.where. | FRAME i|
|000022e0| 73 20 61 20 66 72 61 6d | 65 20 6f 62 6a 65 63 74 |s a fram|e object|
|000022f0| 2c 0a 20 20 41 4c 49 53 | 54 20 69 73 20 61 6e 20 |,. ALIS|T is an |
|00002300| 61 73 73 6f 63 69 61 74 | 69 6f 6e 20 6c 69 73 74 |associat|ion list|
|00002310| 20 73 70 65 63 69 66 79 | 69 6e 67 20 73 6f 6d 65 | specify|ing some|
|00002320| 20 6f 66 20 46 52 41 4d | 45 27 73 20 70 61 72 61 | of FRAM|E's para|
|00002330| 6d 65 74 65 72 73 2c 20 | 61 6e 64 0a 20 20 57 49 |meters, |and. WI|
|00002340| 4e 44 4f 57 2d 43 4f 4e | 46 49 47 20 69 73 20 61 |NDOW-CON|FIG is a|
|00002350| 20 77 69 6e 64 6f 77 20 | 63 6f 6e 66 69 67 75 72 | window |configur|
|00002360| 61 74 69 6f 6e 20 6f 62 | 6a 65 63 74 20 66 6f 72 |ation ob|ject for|
|00002370| 20 46 52 41 4d 45 2e 22 | 5d 29 0a 28 64 65 66 61 | FRAME."|]).(defa|
|00002380| 6c 69 61 73 20 27 73 65 | 74 2d 66 72 61 6d 65 2d |lias 'se|t-frame-|
|00002390| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 23 5b |configur|ation #[|
|000023a0| 28 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 20 26 |(configu|ration &|
|000023b0| 6f 70 74 69 6f 6e 61 6c | 20 6e 6f 64 65 6c 65 74 |optional| nodelet|
|000023c0| 65 29 20 22 c0 09 21 84 | 0d 00 c2 c3 c0 09 44 5c |e) "..!.|......D\|
|000023d0| 22 88 09 41 c4 1d 1e 06 | c7 c8 c9 20 5c 22 88 0e |"..A....|... \"..|
|000023e0| 5c 6e 83 25 00 c7 cb 0d | 5c 22 82 29 00 c7 cc 0d |\n.%....|\".)....|
|000023f0| 5c 22 2a 87 22 20 5b 66 | 72 61 6d 65 2d 63 6f 6e |\"*." [f|rame-con|
|00002400| 66 69 67 75 72 61 74 69 | 6f 6e 2d 70 20 63 6f 6e |figurati|on-p con|
|00002410| 66 69 67 75 72 61 74 69 | 6f 6e 20 73 69 67 6e 61 |figurati|on signa|
|00002420| 6c 20 77 72 6f 6e 67 2d | 74 79 70 65 2d 61 72 67 |l wrong-|type-arg|
|00002430| 75 6d 65 6e 74 20 6e 69 | 6c 20 66 72 61 6d 65 73 |ument ni|l frames|
|00002440| 2d 74 6f 2d 64 65 6c 65 | 74 65 20 63 6f 6e 66 69 |-to-dele|te confi|
|00002450| 67 2d 61 6c 69 73 74 20 | 6d 61 70 63 61 72 20 23 |g-alist |mapcar #|
|00002460| 5b 28 66 72 61 6d 65 29 | 20 22 08 09 9e 89 1a 83 |[(frame)| "......|
|00002470| 29 00 c3 08 5c 6e 41 40 | 1c c5 5c 66 9e 89 1e 06 |)...\nA@|..\f....|
|00002480| 83 1d 00 c7 0e 06 5c 66 | 5c 22 14 5c 66 2a 5c 22 |......\f|\".\f*\"|
|00002490| 88 c8 c9 5c 6e 38 21 82 | 30 00 08 0e 5c 6e 42 89 |...\n8!.|0...\nB.|
|000024a0| 16 5c 6e 29 87 22 20 5b | 66 72 61 6d 65 20 63 6f |.\n)." [|frame co|
|000024b0| 6e 66 69 67 2d 61 6c 69 | 73 74 20 70 61 72 61 6d |nfig-ali|st param|
|000024c0| 65 74 65 72 73 20 6d 6f | 64 69 66 79 2d 66 72 61 |eters mo|dify-fra|
|000024d0| 6d 65 2d 70 61 72 61 6d | 65 74 65 72 73 20 70 61 |me-param|eters pa|
|000024e0| 72 6d 73 20 6d 69 6e 69 | 62 75 66 66 65 72 20 6d |rms mini|buffer m|
|000024f0| 69 6e 69 20 64 65 6c 71 | 20 73 65 74 2d 77 69 6e |ini delq| set-win|
|00002500| 64 6f 77 2d 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow-conf|iguratio|
|00002510| 6e 20 32 20 66 72 61 6d | 65 73 2d 74 6f 2d 64 65 |n 2 fram|es-to-de|
|00002520| 6c 65 74 65 5d 20 36 5d | 20 66 72 61 6d 65 2d 6c |lete] 6]| frame-l|
|00002530| 69 73 74 20 6e 6f 64 65 | 6c 65 74 65 20 69 63 6f |ist node|lete ico|
|00002540| 6e 69 66 79 2d 66 72 61 | 6d 65 20 64 65 6c 65 74 |nify-fra|me delet|
|00002550| 65 2d 66 72 61 6d 65 5d | 20 34 20 22 5c 0a 52 65 |e-frame]| 4 "\.Re|
|00002560| 73 74 6f 72 65 20 74 68 | 65 20 66 72 61 6d 65 73 |store th|e frames|
|00002570| 20 74 6f 20 74 68 65 20 | 73 74 61 74 65 20 64 65 | to the |state de|
|00002580| 73 63 72 69 62 65 64 20 | 62 79 20 43 4f 4e 46 49 |scribed |by CONFI|
|00002590| 47 55 52 41 54 49 4f 4e | 2e 0a 45 61 63 68 20 66 |GURATION|..Each f|
|000025a0| 72 61 6d 65 20 6c 69 73 | 74 65 64 20 69 6e 20 43 |rame lis|ted in C|
|000025b0| 4f 4e 46 49 47 55 52 41 | 54 49 4f 4e 20 68 61 73 |ONFIGURA|TION has|
|000025c0| 20 69 74 73 20 70 6f 73 | 69 74 69 6f 6e 2c 20 73 | its pos|ition, s|
|000025d0| 69 7a 65 2c 20 77 69 6e | 64 6f 77 0a 63 6f 6e 66 |ize, win|dow.conf|
|000025e0| 69 67 75 72 61 74 69 6f | 6e 2c 20 61 6e 64 20 6f |iguratio|n, and o|
|000025f0| 74 68 65 72 20 70 61 72 | 61 6d 65 74 65 72 73 20 |ther par|ameters |
|00002600| 73 65 74 20 61 73 20 73 | 70 65 63 69 66 69 65 64 |set as s|pecified|
|00002610| 20 69 6e 20 43 4f 4e 46 | 49 47 55 52 41 54 49 4f | in CONF|IGURATIO|
|00002620| 4e 2e 0a 4f 72 64 69 6e | 61 72 69 6c 79 2c 20 74 |N..Ordin|arily, t|
|00002630| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 64 65 6c |his func|tion del|
|00002640| 65 74 65 73 20 61 6c 6c | 20 65 78 69 73 74 69 6e |etes all| existin|
|00002650| 67 20 66 72 61 6d 65 73 | 20 6e 6f 74 0a 6c 69 73 |g frames| not.lis|
|00002660| 74 65 64 20 69 6e 20 43 | 4f 4e 46 49 47 55 52 41 |ted in C|ONFIGURA|
|00002670| 54 49 4f 4e 2e 20 20 42 | 75 74 20 69 66 20 6f 70 |TION. B|ut if op|
|00002680| 74 69 6f 6e 61 6c 20 73 | 65 63 6f 6e 64 20 61 72 |tional s|econd ar|
|00002690| 67 75 6d 65 6e 74 20 4e | 4f 44 45 4c 45 54 45 0a |gument N|ODELETE.|
|000026a0| 69 73 20 67 69 76 65 6e | 20 61 6e 64 20 6e 6f 6e |is given| and non|
|000026b0| 2d 6e 69 6c 2c 20 74 68 | 65 20 75 6e 77 61 6e 74 |-nil, th|e unwant|
|000026c0| 65 64 20 66 72 61 6d 65 | 73 20 61 72 65 20 69 63 |ed frame|s are ic|
|000026d0| 6f 6e 69 66 69 65 64 20 | 69 6e 73 74 65 61 64 2e |onified |instead.|
|000026e0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |"]).(def|alias 'f|
|000026f0| 72 61 6d 65 2d 63 6f 6e | 66 69 67 75 72 61 74 69 |rame-con|figurati|
|00002700| 6f 6e 2d 70 20 23 5b 28 | 6f 62 6a 65 63 74 29 20 |on-p #[(|object) |
|00002710| 22 08 3a 85 09 00 08 40 | c1 3d 87 22 20 5b 6f 62 |".:....@|.=." [ob|
|00002720| 6a 65 63 74 20 66 72 61 | 6d 65 2d 63 6f 6e 66 69 |ject fra|me-confi|
|00002730| 67 75 72 61 74 69 6f 6e | 5d 20 32 20 22 5c 0a 52 |guration|] 2 "\.R|
|00002740| 65 74 75 72 6e 20 6e 6f | 6e 2d 6e 69 6c 20 69 66 |eturn no|n-nil if|
|00002750| 20 4f 42 4a 45 43 54 20 | 73 65 65 6d 73 20 74 6f | OBJECT |seems to|
|00002760| 20 62 65 20 61 20 66 72 | 61 6d 65 20 63 6f 6e 66 | be a fr|ame conf|
|00002770| 69 67 75 72 61 74 69 6f | 6e 2e 0a 41 6e 79 20 6c |iguratio|n..Any l|
|00002780| 69 73 74 20 77 68 6f 73 | 65 20 63 61 72 20 69 73 |ist whos|e car is|
|00002790| 20 60 66 72 61 6d 65 2d | 63 6f 6e 66 69 67 75 72 | `frame-|configur|
|000027a0| 61 74 69 6f 6e 27 20 69 | 73 20 61 73 73 75 6d 65 |ation' i|s assume|
|000027b0| 64 20 74 6f 20 62 65 20 | 61 20 66 72 61 6d 65 0a |d to be |a frame.|
|000027c0| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 2e 22 5d |configur|ation."]|
|000027d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 66 72 61 |).(defal|ias 'fra|
|000027e0| 6d 65 2d 68 65 69 67 68 | 74 20 23 5b 28 26 6f 70 |me-heigh|t #[(&op|
|000027f0| 74 69 6f 6e 61 6c 20 66 | 72 61 6d 65 29 20 22 c0 |tional f|rame) ".|
|00002800| c1 5c 6e 21 9e 41 87 22 | 20 5b 68 65 69 67 68 74 |.\n!.A."| [height|
|00002810| 20 66 72 61 6d 65 2d 70 | 61 72 61 6d 65 74 65 72 | frame-p|arameter|
|00002820| 73 20 66 72 61 6d 65 5d | 20 33 20 22 5c 0a 52 65 |s frame]| 3 "\.Re|
|00002830| 74 75 72 6e 20 6e 75 6d | 62 65 72 20 6f 66 20 6c |turn num|ber of l|
|00002840| 69 6e 65 73 20 61 76 61 | 69 6c 61 62 6c 65 20 66 |ines ava|ilable f|
|00002850| 6f 72 20 64 69 73 70 6c | 61 79 20 6f 6e 20 46 52 |or displ|ay on FR|
|00002860| 41 4d 45 2e 0a 49 66 20 | 46 52 41 4d 45 20 69 73 |AME..If |FRAME is|
|00002870| 20 6f 6d 69 74 74 65 64 | 2c 20 64 65 73 63 72 69 | omitted|, descri|
|00002880| 62 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 6c 79 |be the c|urrently|
|00002890| 20 73 65 6c 65 63 74 65 | 64 20 66 72 61 6d 65 2e | selecte|d frame.|
|000028a0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |"]).(def|alias 'f|
|000028b0| 72 61 6d 65 2d 77 69 64 | 74 68 20 23 5b 28 26 6f |rame-wid|th #[(&o|
|000028c0| 70 74 69 6f 6e 61 6c 20 | 66 72 61 6d 65 29 20 22 |ptional |frame) "|
|000028d0| c0 c1 5c 6e 21 9e 41 87 | 22 20 5b 77 69 64 74 68 |..\n!.A.|" [width|
|000028e0| 20 66 72 61 6d 65 2d 70 | 61 72 61 6d 65 74 65 72 | frame-p|arameter|
|000028f0| 73 20 66 72 61 6d 65 5d | 20 33 20 22 5c 0a 52 65 |s frame]| 3 "\.Re|
|00002900| 74 75 72 6e 20 6e 75 6d | 62 65 72 20 6f 66 20 63 |turn num|ber of c|
|00002910| 6f 6c 75 6d 6e 73 20 61 | 76 61 69 6c 61 62 6c 65 |olumns a|vailable|
|00002920| 20 66 6f 72 20 64 69 73 | 70 6c 61 79 20 6f 6e 20 | for dis|play on |
|00002930| 46 52 41 4d 45 2e 0a 49 | 66 20 46 52 41 4d 45 20 |FRAME..I|f FRAME |
|00002940| 69 73 20 6f 6d 69 74 74 | 65 64 2c 20 64 65 73 63 |is omitt|ed, desc|
|00002950| 72 69 62 65 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ribe the| current|
|00002960| 6c 79 20 73 65 6c 65 63 | 74 65 64 20 66 72 61 6d |ly selec|ted fram|
|00002970| 65 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |e."]).(d|efalias |
|00002980| 27 73 65 74 2d 64 65 66 | 61 75 6c 74 2d 66 6f 6e |'set-def|ault-fon|
|00002990| 74 20 23 5b 28 66 6f 6e | 74 2d 6e 61 6d 65 29 20 |t #[(fon|t-name) |
|000029a0| 22 c0 c1 20 c2 0b 42 43 | 5c 22 88 c4 c1 20 21 87 |".. ..BC|\"... !.|
|000029b0| 22 20 5b 6d 6f 64 69 66 | 79 2d 66 72 61 6d 65 2d |" [modif|y-frame-|
|000029c0| 70 61 72 61 6d 65 74 65 | 72 73 20 73 65 6c 65 63 |paramete|rs selec|
|000029d0| 74 65 64 2d 66 72 61 6d | 65 20 66 6f 6e 74 20 66 |ted-fram|e font f|
|000029e0| 6f 6e 74 2d 6e 61 6d 65 | 20 66 72 61 6d 65 2d 75 |ont-name| frame-u|
|000029f0| 70 64 61 74 65 2d 66 61 | 63 65 73 5d 20 34 20 22 |pdate-fa|ces] 4 "|
|00002a00| 5c 0a 53 65 74 20 74 68 | 65 20 66 6f 6e 74 20 6f |\.Set th|e font o|
|00002a10| 66 20 74 68 65 20 73 65 | 6c 65 63 74 65 64 20 66 |f the se|lected f|
|00002a20| 72 61 6d 65 20 74 6f 20 | 46 4f 4e 54 2e 0a 57 68 |rame to |FONT..Wh|
|00002a30| 65 6e 20 63 61 6c 6c 65 | 64 20 69 6e 74 65 72 61 |en calle|d intera|
|00002a40| 63 74 69 76 65 6c 79 2c | 20 70 72 6f 6d 70 74 20 |ctively,| prompt |
|00002a50| 66 6f 72 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |for the |name of |
|00002a60| 74 68 65 20 66 6f 6e 74 | 20 74 6f 20 75 73 65 2e |the font| to use.|
|00002a70| 22 20 22 73 46 6f 6e 74 | 20 6e 61 6d 65 3a 20 22 |" "sFont| name: "|
|00002a80| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 65 |]).(defa|lias 'se|
|00002a90| 74 2d 62 61 63 6b 67 72 | 6f 75 6e 64 2d 63 6f 6c |t-backgr|ound-col|
|00002aa0| 6f 72 20 23 5b 28 63 6f | 6c 6f 72 2d 6e 61 6d 65 |or #[(co|lor-name|
|00002ab0| 29 20 22 c0 c1 20 c2 0b | 42 43 5c 22 87 22 20 5b |) ".. ..|BC\"." [|
|00002ac0| 6d 6f 64 69 66 79 2d 66 | 72 61 6d 65 2d 70 61 72 |modify-f|rame-par|
|00002ad0| 61 6d 65 74 65 72 73 20 | 73 65 6c 65 63 74 65 64 |ameters |selected|
|00002ae0| 2d 66 72 61 6d 65 20 62 | 61 63 6b 67 72 6f 75 6e |-frame b|ackgroun|
|00002af0| 64 2d 63 6f 6c 6f 72 20 | 63 6f 6c 6f 72 2d 6e 61 |d-color |color-na|
|00002b00| 6d 65 5d 20 34 20 22 5c | 0a 53 65 74 20 74 68 65 |me] 4 "\|.Set the|
|00002b10| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 63 6f 6c 6f | backgro|und colo|
|00002b20| 72 20 6f 66 20 74 68 65 | 20 73 65 6c 65 63 74 65 |r of the| selecte|
|00002b30| 64 20 66 72 61 6d 65 20 | 74 6f 20 43 4f 4c 4f 52 |d frame |to COLOR|
|00002b40| 2e 0a 57 68 65 6e 20 63 | 61 6c 6c 65 64 20 69 6e |..When c|alled in|
|00002b50| 74 65 72 61 63 74 69 76 | 65 6c 79 2c 20 70 72 6f |teractiv|ely, pro|
|00002b60| 6d 70 74 20 66 6f 72 20 | 74 68 65 20 6e 61 6d 65 |mpt for |the name|
|00002b70| 20 6f 66 20 74 68 65 20 | 63 6f 6c 6f 72 20 74 6f | of the |color to|
|00002b80| 20 75 73 65 2e 22 20 22 | 73 43 6f 6c 6f 72 3a 20 | use." "|sColor: |
|00002b90| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |"]).(def|alias 's|
|00002ba0| 65 74 2d 66 6f 72 65 67 | 72 6f 75 6e 64 2d 63 6f |et-foreg|round-co|
|00002bb0| 6c 6f 72 20 23 5b 28 63 | 6f 6c 6f 72 2d 6e 61 6d |lor #[(c|olor-nam|
|00002bc0| 65 29 20 22 c0 c1 20 c2 | 0b 42 43 5c 22 87 22 20 |e) ".. .|.BC\"." |
|00002bd0| 5b 6d 6f 64 69 66 79 2d | 66 72 61 6d 65 2d 70 61 |[modify-|frame-pa|
|00002be0| 72 61 6d 65 74 65 72 73 | 20 73 65 6c 65 63 74 65 |rameters| selecte|
|00002bf0| 64 2d 66 72 61 6d 65 20 | 66 6f 72 65 67 72 6f 75 |d-frame |foregrou|
|00002c00| 6e 64 2d 63 6f 6c 6f 72 | 20 63 6f 6c 6f 72 2d 6e |nd-color| color-n|
|00002c10| 61 6d 65 5d 20 34 20 22 | 5c 0a 53 65 74 20 74 68 |ame] 4 "|\.Set th|
|00002c20| 65 20 66 6f 72 65 67 72 | 6f 75 6e 64 20 63 6f 6c |e foregr|ound col|
|00002c30| 6f 72 20 6f 66 20 74 68 | 65 20 73 65 6c 65 63 74 |or of th|e select|
|00002c40| 65 64 20 66 72 61 6d 65 | 20 74 6f 20 43 4f 4c 4f |ed frame| to COLO|
|00002c50| 52 2e 0a 57 68 65 6e 20 | 63 61 6c 6c 65 64 20 69 |R..When |called i|
|00002c60| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 2c 20 70 72 |nteracti|vely, pr|
|00002c70| 6f 6d 70 74 20 66 6f 72 | 20 74 68 65 20 6e 61 6d |ompt for| the nam|
|00002c80| 65 20 6f 66 20 74 68 65 | 20 63 6f 6c 6f 72 20 74 |e of the| color t|
|00002c90| 6f 20 75 73 65 2e 22 20 | 22 73 43 6f 6c 6f 72 3a |o use." |"sColor:|
|00002ca0| 20 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | "]).(de|falias '|
|00002cb0| 73 65 74 2d 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |set-curs|or-color|
|00002cc0| 20 23 5b 28 63 6f 6c 6f | 72 2d 6e 61 6d 65 29 20 | #[(colo|r-name) |
|00002cd0| 22 c0 c1 20 c2 0b 42 43 | 5c 22 87 22 20 5b 6d 6f |".. ..BC|\"." [mo|
|00002ce0| 64 69 66 79 2d 66 72 61 | 6d 65 2d 70 61 72 61 6d |dify-fra|me-param|
|00002cf0| 65 74 65 72 73 20 73 65 | 6c 65 63 74 65 64 2d 66 |eters se|lected-f|
|00002d00| 72 61 6d 65 20 63 75 72 | 73 6f 72 2d 63 6f 6c 6f |rame cur|sor-colo|
|00002d10| 72 20 63 6f 6c 6f 72 2d | 6e 61 6d 65 5d 20 34 20 |r color-|name] 4 |
|00002d20| 22 5c 0a 53 65 74 20 74 | 68 65 20 74 65 78 74 20 |"\.Set t|he text |
|00002d30| 63 75 72 73 6f 72 20 63 | 6f 6c 6f 72 20 6f 66 20 |cursor c|olor of |
|00002d40| 74 68 65 20 73 65 6c 65 | 63 74 65 64 20 66 72 61 |the sele|cted fra|
|00002d50| 6d 65 20 74 6f 20 43 4f | 4c 4f 52 2e 0a 57 68 65 |me to CO|LOR..Whe|
|00002d60| 6e 20 63 61 6c 6c 65 64 | 20 69 6e 74 65 72 61 63 |n called| interac|
|00002d70| 74 69 76 65 6c 79 2c 20 | 70 72 6f 6d 70 74 20 66 |tively, |prompt f|
|00002d80| 6f 72 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |or the n|ame of t|
|00002d90| 68 65 20 63 6f 6c 6f 72 | 20 74 6f 20 75 73 65 2e |he color| to use.|
|00002da0| 22 20 22 73 43 6f 6c 6f | 72 3a 20 22 5d 29 0a 28 |" "sColo|r: "]).(|
|00002db0| 64 65 66 61 6c 69 61 73 | 20 27 73 65 74 2d 6d 6f |defalias| 'set-mo|
|00002dc0| 75 73 65 2d 63 6f 6c 6f | 72 20 23 5b 28 63 6f 6c |use-colo|r #[(col|
|00002dd0| 6f 72 2d 6e 61 6d 65 29 | 20 22 c0 c1 20 c2 0b 42 |or-name)| ".. ..B|
|00002de0| 43 5c 22 87 22 20 5b 6d | 6f 64 69 66 79 2d 66 72 |C\"." [m|odify-fr|
|00002df0| 61 6d 65 2d 70 61 72 61 | 6d 65 74 65 72 73 20 73 |ame-para|meters s|
|00002e00| 65 6c 65 63 74 65 64 2d | 66 72 61 6d 65 20 6d 6f |elected-|frame mo|
|00002e10| 75 73 65 2d 63 6f 6c 6f | 72 20 63 6f 6c 6f 72 2d |use-colo|r color-|
|00002e20| 6e 61 6d 65 5d 20 34 20 | 22 5c 0a 53 65 74 20 74 |name] 4 |"\.Set t|
|00002e30| 68 65 20 63 6f 6c 6f 72 | 20 6f 66 20 74 68 65 20 |he color| of the |
|00002e40| 6d 6f 75 73 65 20 70 6f | 69 6e 74 65 72 20 6f 66 |mouse po|inter of|
|00002e50| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 66 72 | the sel|ected fr|
|00002e60| 61 6d 65 20 74 6f 20 43 | 4f 4c 4f 52 2e 0a 57 68 |ame to C|OLOR..Wh|
|00002e70| 65 6e 20 63 61 6c 6c 65 | 64 20 69 6e 74 65 72 61 |en calle|d intera|
|00002e80| 63 74 69 76 65 6c 79 2c | 20 70 72 6f 6d 70 74 20 |ctively,| prompt |
|00002e90| 66 6f 72 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |for the |name of |
|00002ea0| 74 68 65 20 63 6f 6c 6f | 72 20 74 6f 20 75 73 65 |the colo|r to use|
|00002eb0| 2e 22 20 22 73 43 6f 6c | 6f 72 3a 20 22 5d 29 0a |." "sCol|or: "]).|
|00002ec0| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 74 2d 62 |(defalia|s 'set-b|
|00002ed0| 6f 72 64 65 72 2d 63 6f | 6c 6f 72 20 23 5b 28 63 |order-co|lor #[(c|
|00002ee0| 6f 6c 6f 72 2d 6e 61 6d | 65 29 20 22 c0 c1 20 c2 |olor-nam|e) ".. .|
|00002ef0| 0b 42 43 5c 22 87 22 20 | 5b 6d 6f 64 69 66 79 2d |.BC\"." |[modify-|
|00002f00| 66 72 61 6d 65 2d 70 61 | 72 61 6d 65 74 65 72 73 |frame-pa|rameters|
|00002f10| 20 73 65 6c 65 63 74 65 | 64 2d 66 72 61 6d 65 20 | selecte|d-frame |
|00002f20| 62 6f 72 64 65 72 2d 63 | 6f 6c 6f 72 20 63 6f 6c |border-c|olor col|
|00002f30| 6f 72 2d 6e 61 6d 65 5d | 20 34 20 22 5c 0a 53 65 |or-name]| 4 "\.Se|
|00002f40| 74 20 74 68 65 20 63 6f | 6c 6f 72 20 6f 66 20 74 |t the co|lor of t|
|00002f50| 68 65 20 62 6f 72 64 65 | 72 20 6f 66 20 74 68 65 |he borde|r of the|
|00002f60| 20 73 65 6c 65 63 74 65 | 64 20 66 72 61 6d 65 20 | selecte|d frame |
|00002f70| 74 6f 20 43 4f 4c 4f 52 | 2e 0a 57 68 65 6e 20 63 |to COLOR|..When c|
|00002f80| 61 6c 6c 65 64 20 69 6e | 74 65 72 61 63 74 69 76 |alled in|teractiv|
|00002f90| 65 6c 79 2c 20 70 72 6f | 6d 70 74 20 66 6f 72 20 |ely, pro|mpt for |
|00002fa0| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00002fb0| 63 6f 6c 6f 72 20 74 6f | 20 75 73 65 2e 22 20 22 |color to| use." "|
|00002fc0| 73 43 6f 6c 6f 72 3a 20 | 22 5d 29 0a 28 64 65 66 |sColor: |"]).(def|
|00002fd0| 61 6c 69 61 73 20 27 61 | 75 74 6f 2d 72 61 69 73 |alias 'a|uto-rais|
|00002fe0| 65 2d 6d 6f 64 65 20 23 | 5b 28 61 72 67 29 20 22 |e-mode #|[(arg) "|
|00002ff0| 08 84 14 00 c1 c2 c3 20 | 21 9e 41 83 12 00 c4 82 |....... |!.A.....|
|00003000| 13 00 c5 10 c6 c3 20 c1 | 08 c7 56 42 43 5c 22 87 |...... .|..VBC\".|
|00003010| 22 20 5b 61 72 67 20 61 | 75 74 6f 2d 72 61 69 73 |" [arg a|uto-rais|
|00003020| 65 20 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |e frame-|paramete|
|00003030| 72 73 20 73 65 6c 65 63 | 74 65 64 2d 66 72 61 6d |rs selec|ted-fram|
|00003040| 65 20 2d 31 20 31 20 6d | 6f 64 69 66 79 2d 66 72 |e -1 1 m|odify-fr|
|00003050| 61 6d 65 2d 70 61 72 61 | 6d 65 74 65 72 73 20 30 |ame-para|meters 0|
|00003060| 5d 20 35 20 22 5c 0a 54 | 6f 67 67 6c 65 20 77 68 |] 5 "\.T|oggle wh|
|00003070| 65 74 68 65 72 20 6f 72 | 20 6e 6f 74 20 74 68 65 |ether or| not the|
|00003080| 20 73 65 6c 65 63 74 65 | 64 20 66 72 61 6d 65 20 | selecte|d frame |
|00003090| 73 68 6f 75 6c 64 20 61 | 75 74 6f 2d 72 61 69 73 |should a|uto-rais|
|000030a0| 65 2e 0a 57 69 74 68 20 | 61 72 67 2c 20 74 75 72 |e..With |arg, tur|
|000030b0| 6e 20 61 75 74 6f 2d 72 | 61 69 73 65 20 6d 6f 64 |n auto-r|aise mod|
|000030c0| 65 20 6f 6e 20 69 66 20 | 61 6e 64 20 6f 6e 6c 79 |e on if |and only|
|000030d0| 20 69 66 20 61 72 67 20 | 69 73 20 70 6f 73 69 74 | if arg |is posit|
|000030e0| 69 76 65 2e 0a 4e 6f 74 | 65 20 74 68 61 74 20 74 |ive..Not|e that t|
|000030f0| 68 69 73 20 63 6f 6e 74 | 72 6f 6c 73 20 45 6d 61 |his cont|rols Ema|
|00003100| 63 73 27 73 20 6f 77 6e | 20 61 75 74 6f 2d 72 61 |cs's own| auto-ra|
|00003110| 69 73 65 20 66 65 61 74 | 75 72 65 2e 0a 53 6f 6d |ise feat|ure..Som|
|00003120| 65 20 77 69 6e 64 6f 77 | 20 6d 61 6e 61 67 65 72 |e window| manager|
|00003130| 73 20 61 6c 6c 6f 77 20 | 79 6f 75 20 74 6f 20 65 |s allow |you to e|
|00003140| 6e 61 62 6c 65 20 61 75 | 74 6f 2d 72 61 69 73 65 |nable au|to-raise|
|00003150| 20 66 6f 72 20 63 65 72 | 74 61 69 6e 20 77 69 6e | for cer|tain win|
|00003160| 64 6f 77 73 2e 0a 59 6f | 75 20 63 61 6e 20 75 73 |dows..Yo|u can us|
|00003170| 65 20 74 68 61 74 20 66 | 6f 72 20 45 6d 61 63 73 |e that f|or Emacs|
|00003180| 20 77 69 6e 64 6f 77 73 | 20 69 66 20 79 6f 75 20 | windows| if you |
|00003190| 77 69 73 68 2c 20 62 75 | 74 20 69 66 20 79 6f 75 |wish, bu|t if you|
|000031a0| 20 64 6f 2c 0a 74 68 61 | 74 20 69 73 20 62 65 79 | do,.tha|t is bey|
|000031b0| 6f 6e 64 20 74 68 65 20 | 63 6f 6e 74 72 6f 6c 20 |ond the |control |
|000031c0| 6f 66 20 45 6d 61 63 73 | 20 61 6e 64 20 74 68 69 |of Emacs| and thi|
|000031d0| 73 20 63 6f 6d 6d 61 6e | 64 20 68 61 73 20 6e 6f |s comman|d has no|
|000031e0| 20 65 66 66 65 63 74 20 | 6f 6e 20 69 74 2e 22 20 | effect |on it." |
|000031f0| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|00003200| 27 61 75 74 6f 2d 6c 6f | 77 65 72 2d 6d 6f 64 65 |'auto-lo|wer-mode|
|00003210| 20 23 5b 28 61 72 67 29 | 20 22 08 84 14 00 c1 c2 | #[(arg)| "......|
|00003220| c3 20 21 9e 41 83 12 00 | c4 82 13 00 c5 10 c6 c3 |. !.A...|........|
|00003230| 20 c1 08 c7 56 42 43 5c | 22 87 22 20 5b 61 72 67 | ...VBC\|"." [arg|
|00003240| 20 61 75 74 6f 2d 6c 6f | 77 65 72 20 66 72 61 6d | auto-lo|wer fram|
|00003250| 65 2d 70 61 72 61 6d 65 | 74 65 72 73 20 73 65 6c |e-parame|ters sel|
|00003260| 65 63 74 65 64 2d 66 72 | 61 6d 65 20 2d 31 20 31 |ected-fr|ame -1 1|
|00003270| 20 6d 6f 64 69 66 79 2d | 66 72 61 6d 65 2d 70 61 | modify-|frame-pa|
|00003280| 72 61 6d 65 74 65 72 73 | 20 30 5d 20 35 20 22 5c |rameters| 0] 5 "\|
|00003290| 0a 54 6f 67 67 6c 65 20 | 77 68 65 74 68 65 72 20 |.Toggle |whether |
|000032a0| 6f 72 20 6e 6f 74 20 74 | 68 65 20 73 65 6c 65 63 |or not t|he selec|
|000032b0| 74 65 64 20 66 72 61 6d | 65 20 73 68 6f 75 6c 64 |ted fram|e should|
|000032c0| 20 61 75 74 6f 2d 6c 6f | 77 65 72 2e 0a 57 69 74 | auto-lo|wer..Wit|
|000032d0| 68 20 61 72 67 2c 20 74 | 75 72 6e 20 61 75 74 6f |h arg, t|urn auto|
|000032e0| 2d 6c 6f 77 65 72 20 6d | 6f 64 65 20 6f 6e 20 69 |-lower m|ode on i|
|000032f0| 66 20 61 6e 64 20 6f 6e | 6c 79 20 69 66 20 61 72 |f and on|ly if ar|
|00003300| 67 20 69 73 20 70 6f 73 | 69 74 69 76 65 2e 0a 4e |g is pos|itive..N|
|00003310| 6f 74 65 20 74 68 61 74 | 20 74 68 69 73 20 63 6f |ote that| this co|
|00003320| 6e 74 72 6f 6c 73 20 45 | 6d 61 63 73 27 73 20 6f |ntrols E|macs's o|
|00003330| 77 6e 20 61 75 74 6f 2d | 6c 6f 77 65 72 20 66 65 |wn auto-|lower fe|
|00003340| 61 74 75 72 65 2e 0a 53 | 6f 6d 65 20 77 69 6e 64 |ature..S|ome wind|
|00003350| 6f 77 20 6d 61 6e 61 67 | 65 72 73 20 61 6c 6c 6f |ow manag|ers allo|
|00003360| 77 20 79 6f 75 20 74 6f | 20 65 6e 61 62 6c 65 20 |w you to| enable |
|00003370| 61 75 74 6f 2d 6c 6f 77 | 65 72 20 66 6f 72 20 63 |auto-low|er for c|
|00003380| 65 72 74 61 69 6e 20 77 | 69 6e 64 6f 77 73 2e 0a |ertain w|indows..|
|00003390| 59 6f 75 20 63 61 6e 20 | 75 73 65 20 74 68 61 74 |You can |use that|
|000033a0| 20 66 6f 72 20 45 6d 61 | 63 73 20 77 69 6e 64 6f | for Ema|cs windo|
|000033b0| 77 73 20 69 66 20 79 6f | 75 20 77 69 73 68 2c 20 |ws if yo|u wish, |
|000033c0| 62 75 74 20 69 66 20 79 | 6f 75 20 64 6f 2c 0a 74 |but if y|ou do,.t|
|000033d0| 68 61 74 20 69 73 20 62 | 65 79 6f 6e 64 20 74 68 |hat is b|eyond th|
|000033e0| 65 20 63 6f 6e 74 72 6f | 6c 20 6f 66 20 45 6d 61 |e contro|l of Ema|
|000033f0| 63 73 20 61 6e 64 20 74 | 68 69 73 20 63 6f 6d 6d |cs and t|his comm|
|00003400| 61 6e 64 20 68 61 73 20 | 6e 6f 20 65 66 66 65 63 |and has |no effec|
|00003410| 74 20 6f 6e 20 69 74 2e | 22 20 22 50 22 5d 29 0a |t on it.|" "P"]).|
|00003420| 28 64 65 66 61 6c 69 61 | 73 20 27 74 6f 67 67 6c |(defalia|s 'toggl|
|00003430| 65 2d 73 63 72 6f 6c 6c | 2d 62 61 72 20 23 5b 28 |e-scroll|-bar #[(|
|00003440| 61 72 67 29 20 22 08 84 | 14 00 c1 c2 c3 20 21 9e |arg) "..|..... !.|
|00003450| 41 83 12 00 c4 82 13 00 | c5 10 c6 c3 20 c1 08 c7 |A.......|.... ...|
|00003460| 56 42 43 5c 22 87 22 20 | 5b 61 72 67 20 76 65 72 |VBC\"." |[arg ver|
|00003470| 74 69 63 61 6c 2d 73 63 | 72 6f 6c 6c 2d 62 61 72 |tical-sc|roll-bar|
|00003480| 73 20 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |s frame-|paramete|
|00003490| 72 73 20 73 65 6c 65 63 | 74 65 64 2d 66 72 61 6d |rs selec|ted-fram|
|000034a0| 65 20 2d 31 20 31 20 6d | 6f 64 69 66 79 2d 66 72 |e -1 1 m|odify-fr|
|000034b0| 61 6d 65 2d 70 61 72 61 | 6d 65 74 65 72 73 20 30 |ame-para|meters 0|
|000034c0| 5d 20 35 20 22 5c 0a 54 | 6f 67 67 6c 65 20 77 68 |] 5 "\.T|oggle wh|
|000034d0| 65 74 68 65 72 20 6f 72 | 20 6e 6f 74 20 74 68 65 |ether or| not the|
|000034e0| 20 73 65 6c 65 63 74 65 | 64 20 66 72 61 6d 65 20 | selecte|d frame |
|000034f0| 68 61 73 20 76 65 72 74 | 69 63 61 6c 20 73 63 72 |has vert|ical scr|
|00003500| 6f 6c 6c 20 62 61 72 73 | 2e 0a 57 69 74 68 20 61 |oll bars|..With a|
|00003510| 72 67 2c 20 74 75 72 6e | 20 76 65 72 74 69 63 61 |rg, turn| vertica|
|00003520| 6c 20 73 63 72 6f 6c 6c | 20 62 61 72 73 20 6f 6e |l scroll| bars on|
|00003530| 20 69 66 20 61 6e 64 20 | 6f 6e 6c 79 20 69 66 20 | if and |only if |
|00003540| 61 72 67 20 69 73 20 70 | 6f 73 69 74 69 76 65 2e |arg is p|ositive.|
|00003550| 22 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "P"]).|(defalia|
|00003560| 73 20 27 74 6f 67 67 6c | 65 2d 68 6f 72 69 7a 6f |s 'toggl|e-horizo|
|00003570| 6e 74 61 6c 2d 73 63 72 | 6f 6c 6c 2d 62 61 72 20 |ntal-scr|oll-bar |
|00003580| 23 5b 28 61 72 67 29 20 | 22 c0 c1 21 87 22 20 5b |#[(arg) |"..!." [|
|00003590| 65 72 72 6f 72 20 22 48 | 6f 72 69 7a 6f 6e 74 61 |error "H|orizonta|
|000035a0| 6c 20 73 63 72 6f 6c 6c | 20 62 61 72 73 20 61 72 |l scroll| bars ar|
|000035b0| 65 6e 27 74 20 69 6d 70 | 6c 65 6d 65 6e 74 65 64 |en't imp|lemented|
|000035c0| 20 79 65 74 22 5d 20 32 | 20 22 5c 0a 54 6f 67 67 | yet"] 2| "\.Togg|
|000035d0| 6c 65 20 77 68 65 74 68 | 65 72 20 6f 72 20 6e 6f |le wheth|er or no|
|000035e0| 74 20 74 68 65 20 73 65 | 6c 65 63 74 65 64 20 66 |t the se|lected f|
|000035f0| 72 61 6d 65 20 68 61 73 | 20 68 6f 72 69 7a 6f 6e |rame has| horizon|
|00003600| 74 61 6c 20 73 63 72 6f | 6c 6c 20 62 61 72 73 2e |tal scro|ll bars.|
|00003610| 0a 57 69 74 68 20 61 72 | 67 2c 20 74 75 72 6e 20 |.With ar|g, turn |
|00003620| 68 6f 72 69 7a 6f 6e 74 | 61 6c 20 73 63 72 6f 6c |horizont|al scrol|
|00003630| 6c 20 62 61 72 73 20 6f | 6e 20 69 66 20 61 6e 64 |l bars o|n if and|
|00003640| 20 6f 6e 6c 79 20 69 66 | 20 61 72 67 20 69 73 20 | only if| arg is |
|00003650| 70 6f 73 69 74 69 76 65 | 2e 0a 48 6f 72 69 7a 6f |positive|..Horizo|
|00003660| 6e 74 61 6c 20 73 63 72 | 6f 6c 6c 20 62 61 72 73 |ntal scr|oll bars|
|00003670| 20 61 72 65 6e 27 74 20 | 69 6d 70 6c 65 6d 65 6e | aren't |implemen|
|00003680| 74 65 64 20 79 65 74 2e | 22 20 22 50 22 5d 29 0a |ted yet.|" "P"]).|
|00003690| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|000036a0| 22 88 c0 c3 c4 5c 22 87 | 22 20 5b 64 65 66 61 6c |"....\".|" [defal|
|000036b0| 69 61 73 20 73 63 72 65 | 65 6e 2d 68 65 69 67 68 |ias scre|en-heigh|
|000036c0| 74 20 66 72 61 6d 65 2d | 68 65 69 67 68 74 20 73 |t frame-|height s|
|000036d0| 63 72 65 65 6e 2d 77 69 | 64 74 68 20 66 72 61 6d |creen-wi|dth fram|
|000036e0| 65 2d 77 69 64 74 68 5d | 20 33 29 0a 28 64 65 66 |e-width]| 3).(def|
|000036f0| 61 6c 69 61 73 20 27 73 | 65 74 2d 73 63 72 65 65 |alias 's|et-scree|
|00003700| 6e 2d 77 69 64 74 68 20 | 23 5b 28 63 6f 6c 73 20 |n-width |#[(cols |
|00003710| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 72 65 74 65 6e |&optiona|l preten|
|00003720| 64 29 20 22 c0 c1 20 5c | 6e 0b 23 87 22 20 5b 73 |d) ".. \|n.#." [s|
|00003730| 65 74 2d 66 72 61 6d 65 | 2d 77 69 64 74 68 20 73 |et-frame|-width s|
|00003740| 65 6c 65 63 74 65 64 2d | 66 72 61 6d 65 20 63 6f |elected-|frame co|
|00003750| 6c 73 20 70 72 65 74 65 | 6e 64 5d 20 34 20 22 5c |ls prete|nd] 4 "\|
|00003760| 0a 4f 62 73 6f 6c 65 74 | 65 20 66 75 6e 63 74 69 |.Obsolet|e functi|
|00003770| 6f 6e 20 74 6f 20 63 68 | 61 6e 67 65 20 74 68 65 |on to ch|ange the|
|00003780| 20 73 69 7a 65 20 6f 66 | 20 74 68 65 20 73 63 72 | size of| the scr|
|00003790| 65 65 6e 20 74 6f 20 43 | 4f 4c 53 20 63 6f 6c 75 |een to C|OLS colu|
|000037a0| 6d 6e 73 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 73 65 |mns..Opt|ional se|
|000037b0| 63 6f 6e 64 20 61 72 67 | 20 6e 6f 6e 2d 6e 69 6c |cond arg| non-nil|
|000037c0| 20 6d 65 61 6e 73 20 74 | 68 61 74 20 72 65 64 69 | means t|hat redi|
|000037d0| 73 70 6c 61 79 20 73 68 | 6f 75 6c 64 20 75 73 65 |splay sh|ould use|
|000037e0| 20 43 4f 4c 53 20 63 6f | 6c 75 6d 6e 73 0a 62 75 | COLS co|lumns.bu|
|000037f0| 74 20 74 68 61 74 20 74 | 68 65 20 69 64 65 61 20 |t that t|he idea |
|00003800| 6f 66 20 74 68 65 20 61 | 63 74 75 61 6c 20 77 69 |of the a|ctual wi|
|00003810| 64 74 68 20 6f 66 20 74 | 68 65 20 66 72 61 6d 65 |dth of t|he frame|
|00003820| 20 73 68 6f 75 6c 64 20 | 6e 6f 74 20 62 65 20 63 | should |not be c|
|00003830| 68 61 6e 67 65 64 2e 0a | 54 68 69 73 20 66 75 6e |hanged..|This fun|
|00003840| 63 74 69 6f 6e 20 69 73 | 20 70 72 6f 76 69 64 65 |ction is| provide|
|00003850| 64 20 6f 6e 6c 79 20 66 | 6f 72 20 63 6f 6d 70 61 |d only f|or compa|
|00003860| 74 69 62 69 6c 69 74 79 | 20 77 69 74 68 20 45 6d |tibility| with Em|
|00003870| 61 63 73 20 31 38 3b 20 | 6e 65 77 20 63 6f 64 65 |acs 18; |new code|
|00003880| 0a 73 68 6f 75 6c 64 20 | 75 73 65 20 60 73 65 74 |.should |use `set|
|00003890| 2d 66 72 61 6d 65 2d 77 | 69 64 74 68 20 69 6e 73 |-frame-w|idth ins|
|000038a0| 74 65 61 64 27 2e 22 5d | 29 0a 28 64 65 66 61 6c |tead'."]|).(defal|
|000038b0| 69 61 73 20 27 73 65 74 | 2d 73 63 72 65 65 6e 2d |ias 'set|-screen-|
|000038c0| 68 65 69 67 68 74 20 23 | 5b 28 6c 69 6e 65 73 20 |height #|[(lines |
|000038d0| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 72 65 74 65 6e |&optiona|l preten|
|000038e0| 64 29 20 22 c0 c1 20 5c | 6e 0b 23 87 22 20 5b 73 |d) ".. \|n.#." [s|
|000038f0| 65 74 2d 66 72 61 6d 65 | 2d 68 65 69 67 68 74 20 |et-frame|-height |
|00003900| 73 65 6c 65 63 74 65 64 | 2d 66 72 61 6d 65 20 6c |selected|-frame l|
|00003910| 69 6e 65 73 20 70 72 65 | 74 65 6e 64 5d 20 34 20 |ines pre|tend] 4 |
|00003920| 22 5c 0a 4f 62 73 6f 6c | 65 74 65 20 66 75 6e 63 |"\.Obsol|ete func|
|00003930| 74 69 6f 6e 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |tion to |change t|
|00003940| 68 65 20 68 65 69 67 68 | 74 20 6f 66 20 74 68 65 |he heigh|t of the|
|00003950| 20 73 63 72 65 65 6e 20 | 74 6f 20 4c 49 4e 45 53 | screen |to LINES|
|00003960| 20 6c 69 6e 65 73 2e 0a | 4f 70 74 69 6f 6e 61 6c | lines..|Optional|
|00003970| 20 73 65 63 6f 6e 64 20 | 61 72 67 20 6e 6f 6e 2d | second |arg non-|
|00003980| 6e 69 6c 20 6d 65 61 6e | 73 20 74 68 61 74 20 72 |nil mean|s that r|
|00003990| 65 64 69 73 70 6c 61 79 | 20 73 68 6f 75 6c 64 20 |edisplay| should |
|000039a0| 75 73 65 20 4c 49 4e 45 | 53 20 6c 69 6e 65 73 0a |use LINE|S lines.|
|000039b0| 62 75 74 20 74 68 61 74 | 20 74 68 65 20 69 64 65 |but that| the ide|
|000039c0| 61 20 6f 66 20 74 68 65 | 20 61 63 74 75 61 6c 20 |a of the| actual |
|000039d0| 68 65 69 67 68 74 20 6f | 66 20 74 68 65 20 73 63 |height o|f the sc|
|000039e0| 72 65 65 6e 20 73 68 6f | 75 6c 64 20 6e 6f 74 20 |reen sho|uld not |
|000039f0| 62 65 20 63 68 61 6e 67 | 65 64 2e 0a 54 68 69 73 |be chang|ed..This|
|00003a00| 20 66 75 6e 63 74 69 6f | 6e 20 69 73 20 70 72 6f | functio|n is pro|
|00003a10| 76 69 64 65 64 20 6f 6e | 6c 79 20 66 6f 72 20 63 |vided on|ly for c|
|00003a20| 6f 6d 70 61 74 69 62 69 | 6c 69 74 79 20 77 69 74 |ompatibi|lity wit|
|00003a30| 68 20 45 6d 61 63 73 20 | 31 38 3b 20 6e 65 77 20 |h Emacs |18; new |
|00003a40| 63 6f 64 65 0a 73 68 6f | 75 6c 64 20 75 73 65 20 |code.sho|uld use |
|00003a50| 60 73 65 74 2d 66 72 61 | 6d 65 2d 77 69 64 74 68 |`set-fra|me-width|
|00003a60| 27 20 69 6e 73 74 65 61 | 64 2e 22 5d 29 0a 28 62 |' instea|d."]).(b|
|00003a70| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00003a80| c0 c3 c4 5c 22 88 c0 c5 | c6 5c 22 88 c0 c7 c8 5c |...\"...|.\"....\|
|00003a90| 22 87 22 20 5b 6d 61 6b | 65 2d 6f 62 73 6f 6c 65 |"." [mak|e-obsole|
|00003aa0| 74 65 20 73 63 72 65 65 | 6e 2d 68 65 69 67 68 74 |te scree|n-height|
|00003ab0| 20 66 72 61 6d 65 2d 68 | 65 69 67 68 74 20 73 63 | frame-h|eight sc|
|00003ac0| 72 65 65 6e 2d 77 69 64 | 74 68 20 66 72 61 6d 65 |reen-wid|th frame|
|00003ad0| 2d 77 69 64 74 68 20 73 | 65 74 2d 73 63 72 65 65 |-width s|et-scree|
|00003ae0| 6e 2d 77 69 64 74 68 20 | 73 65 74 2d 66 72 61 6d |n-width |set-fram|
|00003af0| 65 2d 77 69 64 74 68 20 | 73 65 74 2d 73 63 72 65 |e-width |set-scre|
|00003b00| 65 6e 2d 68 65 69 67 68 | 74 20 73 65 74 2d 66 72 |en-heigh|t set-fr|
|00003b10| 61 6d 65 2d 68 65 69 67 | 68 74 5d 20 33 29 0a 28 |ame-heig|ht] 3).(|
|00003b20| 64 65 66 76 61 72 20 63 | 74 6c 2d 78 2d 35 2d 6d |defvar c|tl-x-5-m|
|00003b30| 61 70 20 28 6d 61 6b 65 | 2d 73 70 61 72 73 65 2d |ap (make|-sparse-|
|00003b40| 6b 65 79 6d 61 70 29 20 | 22 5c 0a 4b 65 79 6d 61 |keymap) |"\.Keyma|
|00003b50| 70 20 66 6f 72 20 66 72 | 61 6d 65 20 63 6f 6d 6d |p for fr|ame comm|
|00003b60| 61 6e 64 73 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |ands.").|(byte-co|
|00003b70| 64 65 20 22 c0 c1 5c 6e | 5c 22 88 c3 5c 66 c5 c1 |de "..\n|\"..\f..|
|00003b80| 23 88 c3 5c 6e c6 c7 23 | 88 c3 5c 6e c8 c9 23 88 |#..\n..#|..\n..#.|
|00003b90| c3 5c 6e ca cb 23 88 cc | cd 21 87 22 20 5b 64 65 |.\n..#..|.!." [de|
|00003ba0| 66 61 6c 69 61 73 20 63 | 74 6c 2d 78 2d 35 2d 70 |falias c|tl-x-5-p|
|00003bb0| 72 65 66 69 78 20 63 74 | 6c 2d 78 2d 35 2d 6d 61 |refix ct|l-x-5-ma|
|00003bc0| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 74 6c |p define|-key ctl|
|00003bd0| 2d 78 2d 6d 61 70 20 22 | 35 22 20 22 32 22 20 6d |-x-map "|5" "2" m|
|00003be0| 61 6b 65 2d 66 72 61 6d | 65 20 22 30 22 20 64 65 |ake-fram|e "0" de|
|00003bf0| 6c 65 74 65 2d 66 72 61 | 6d 65 20 22 6f 22 20 6f |lete-fra|me "o" o|
|00003c00| 74 68 65 72 2d 66 72 61 | 6d 65 20 70 72 6f 76 69 |ther-fra|me provi|
|00003c10| 64 65 20 66 72 61 6d 65 | 5d 20 34 29 0a |de frame|] 4). |
+--------+-------------------------+-------------------------+--------+--------+